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AUTOMATED  ACCEPTANCE  TEST  PROCEDURES  FOR  WIDEBAND 
MICROWAVE  SYNTHESIZED  SIGNAL  GENERATOR  TESTING 


INTRODUCTION 

The  Naval  Research  Laboratory  (NRL)  has  been  tasked  by  the  Naval  Electronic  Systems 
Command  (NAVE LEX)  to  develop  automated  acceptance  test  procedures  to  be  used  to  evaluate 
the  performance  characteristics  of  the  Navy’s  new  wideband  microwave  synthesized  signal 
generators.  The  test  system  developed  makes  maximum  use  of  IEEE -488  bus  controlled  instrumen¬ 
tation  and  a  central  processor/controller  which  allows  most  measurements  to  be  accomplished 
under  processor  control.  Use  of  the  Hewlett-Packard  Model  8566A  Spectrum  Analyzer  and  other 
new  equipment  under  bus  control  has  virtually  eliminated  the  need  for  subjective  judgments  by  the 
test  operator.  The  time  required  for  completion  of  the  tests  has  been  greatly  reduced.  Test  results 
are  more  accurately  and  precisely  documented.  Test  procedures  are  standardized  and  precisely 
defined. 

Details  of  the  individual  tests  performed  and  the  hardware  and  software  used  to  implement  the 
tests  are  included  in  the  appendices.  These  procedures  represent  refinements  and  improvements 
developed  after  intensive  use  for  6  to  9  months. 

Two  sample  units  from  each  Systron-Donner  Corporation  or  Giga-tronics,  Inc.,  production  lot 
of  10  are  selected  at  random  in  accordance  with  the  testing  requirements  [1,2] .  They  are  shipped 
to  the  Navy  testing  facility  where  they  undergo  rigorous  production  tests  to  verify  that  the 
equipment  meets  applicable  specifications.  If  both  samples  pass  all  tests,  the  entire  lot  of  10  is 
accepted  by  the  Navy  and  delivered  to  the  Fleet.  Should  either  sample  fail  to  meet  the  specifica¬ 
tions,  the  entire  lot  may  be  rejected.  When  the  problem  is  remedied,  another  random  sample  of 
two  units  is  selected  and  the  testing  restarted.  The  cost  of  all  retested  lot  samples  is  charged  to 
the  manufacturer. 


PERFORMANCE  ACCEPTANCE  TESTS 

A  listing  of  the  acceptance  tests  for  the  production-lot  sample  follows. 

•  Status:  Frequency  lock  and  amplitude  level;  performed  at  normal,  minimum,  and 
maximum  operating  temperatures. 

•  Level  accuracy:  Power  output  level  (dBm)  vs  frequency  (GHz);  normal,  minimum,  and 
maximum  operating  temperatures. 

•  Maximum  output:  Maximum  unleveled  power  (dBm)  vs  frequency  (GHz);  normal 
minimum,  and  maximum  operating  temperatures. 

•  Level  calibration:  Verification  of  attenuators  to  -90  dBm. 
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•  Spur  hunt:  Search  (0.01  to  23  GHz)  for  harmonic  and  non-harmonic  outputs  caused  by 
20  randomly  selected  output  frequencies. 

•  Phase  noise:  At  10  kHz,  offset  for  20  randomly  selected  frequencies. 

•  On /off  ratio:  Pulse/square  wave  carrier  ON :OFF  ratio;  10  frequencies. 

•  Sweep  output:  Output  level  and  ramp  output  check  in  sweep  mode. 

•  Center  frequency  pulling:  Due  to  pulse  modulation. 

•  Power  meter  accuracy:  Internal  PM  vs  external  reference  PM. 

•  Internal  pulse  width:  Internal  calibration,  maximum,  minimum  pulse  widths. 

•  External  pulse  modulation:  Verify  operation;  external  pulse  generator. 

•  External  reference  lock:  Verify  operation  with  external  reference. 

•  Remote  control:  Check  operation  with  IEEE-488  bus  controller. 

•  Residual  FM:  Residual  FM  on  unmodulated  CW  output. 

•  Frequency  counter:  Verify  frequency  counter  function  operation. 

•  Cable  calibration:  Verify  cable  calibration  function  operation. 

The  last  two  items  apply  only  to  the  Giga-tronics  Model  1026.  These  features  were  added  by 
the  manufacturer  and  not  required  by  the  specification;  however,  since  they  are  available,  both 
must  be  functioning  properly  for  the  sample  lot  to  pass. 

The  details  of  these  sample  production-lot  tests  are  the  subject  of  the  remainder  of  this  report. 


TEST  EQUIPMENT  REQUIRED 

The  test  equipment  required  is  listed  below.  If  the  suggested  model  can  be  replaced  by  an 
equivalent  instrument,  /eq  will  follow  the  model  number.  However,  if  the  suggested  model  is  not 
used,  the  software  listed  in  the  appendices  may  have  to  be  modified  to  accommodate  the  equipment 
used. 


Equipment 

Suggested  Model 

IEEE-488 

Spectrum  analyzer 

HP-85  66A 

Y 

Power  meter 

HP-436A  /eq 

Y 

Power  sensor  (+10  to  -30  dBm) 

HP-8485A  /eq 

N 

Coaxial  10  MHz  to  26.5  GHz 

Computer/ controller 

HP-26/36  /eq 

Y 

Crystal  detector  (Coax  .01  -  26.5 

HP-847 3C  /eq 

N 

GHz) 

A/D  converter  or  DVM 

HP-5931 3A  /eq 

Y 
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Equipment 

Suggested  Model 

IEEE-488 

Pulse /function  generator 

HP-8111A  /eq 

N 

Crystal  reference  (5  MHz) 

HP-5062C  /eq 

N 

Microwave  frequency  counter, 
coaxial  input  DC  to  26.5  GHz 

SD-6054B  /eq 

Y 

Modulation  analyzer 

HP-8901A  /eq 

Y 

Microwave  synthesizer 

HP-8  340 A  /eq 

Y 

Mixer  (coax/10  GHz) 

MITEQ  MCO-1A  /eq 

N 

DESCRIPTION  OF  PRODUCTION  TESTS 
Status:  Frequency  Lock  and  Amplitude  Level 

In  this  test,  the  frequency  of  the  unit  under  test  (UUT)  is  varied  in  10  MHz  steps  over  the 
entire  operating  frequency  range  (FR)  of  100  MHz  to  26.5  GHz,  while  the  output  amplitude  is 
maintained  at  its  maximum  leveled  value  of  +5  dBm.  At  each  of  the  2640  frequency  steps,  the  UUT 
is  commanded  by  the  test  controller  to  send  back  its  status  message  for  interrogation.  Contained  in 
this  binary  message  is  an  indication  that  the  UUTs  output  frequency  is  phase  locked  to  its  reference 
frequency  and  that  the  output  amplitude  leveling  loop  is  within  its  operating  range  and  able  to 
maintain  the  proper  output  power  level  to  within  ±1  dB.  A  false  indication  for  either  or  both  of 
these  status  messages  triggers  the  controller  to  print  the  fault  condition  and  the  frequency  at  which 
it  occurred  on  a  hardcopy  test  record. 

This  test  is  performed  at  room  temperature  on  both  test  samples  after  they  have  been 
unpacked  and  turned  on  for  at  least  1  hour.  It  is  also  performed  every  4  hours  during  both  the 
maximum  and  minimum  operational  temperature  tests. 

Appendix  A  shows  a  typical  printout  from  this  test,  the  block  diagram  of  the  test  set-up,  and 
a  listing  of  the  program  on  the  HP-85  controller,  written  in  Basic.  At  the  start  of  the  test  run,  the 
first  line  printed  is  the  test  frequency  range  as:  RANGE  I  0.1  ->  26.5 1  Steps  2640.  This  means  that 
2640  frequency  steps  are  taken  from  0.1  to  26.5  GHz.  Any  frequencies  at  which  there  is  an 
UNLOCK  or  UNLEVEL  status  message  are  printed  next .  The  end  of  the  test  run  is  signaled  by 
“STATUS  TEST”  followed  by  the  model  and  serial  numbers  of  the  UUT,  the  date  and  time  of  test 
completion,  and  the  temperature  and  relative  humidity. 

Output  Level  Accuracy:  Power  Out  (dBm)  vs  Frequency  (GHz) 

This  test  monitors  the  UUT’s  output  power  level  with  a  Hewlett-Packard  (HP)  436A  power  meter 
and  8485A  sensor,  which  is  capable  of  making  coaxial  power  measurements  from  10  MHz  to  26.5 
GHz  .  The  UUT’s  frequency  is  stepped  by  any  desired  increment  greater  than  1  MHz  (usually  100 
MHz  is  chosen)  over  the  full  FR,  and  the  power  meter  sends  the  output  power  level  to  the  controller. 
The  controller  adds  to  this  raw  power  reading  any  correction  factors  necessary  to  compensate  for 
the  calibrated  roll-off  (vs  frequency)  of  the  particular  power  sensor  used.  If  any  coaxial  cables  are 
used  between  the  UTT’s  output  and  power  sensor’s  input,  their  correction  factors  are  also  added  at 
this  time.  The  final  corrected  output  power  level  vs.  frequency  is  then  plotted  and  becomes  a  per¬ 
manent  record  of  the  UUT’s  output  power  accuracy. 


3 


O’NEILL  and  GATTIS 


This  test  is  usually  performed  at  power  levels  of  +5  dBm  and  -4  dBm,  giving  two  plots  on  the 
same  set  of  axes.  Like  the  status  test,  this  test  is  performed  at  room  temperature  after  initial  warm¬ 
up  and  immediately  following  both  the  maximum  and  minimum  operating  temperature  runs.  If  any 
discrepancies  are  detected,  the  parameters  of  the  test  may  be  easily  varied  to  make  a  detailed  study 
of  the  problem  area. 

Appendix  B/C  shows  a  typical  plot  generated  by  this  test,  the  test  set-up  block  diagram,  and  a 
listing  of  the  program  on  the  HP-26/36  controller(s)  written  in  HPL  language.  The  data  plot  gives 
the  model  and  serial  numbers  of  the  UUT,  the  ambient  temperature  during  the  test,  and  the  date 
and  time  that  the  test  was  completed.  The  straight  horizontal  lines  on  either  side  of  the  plotted  data 
are  ±1  dB  about  the  set  level  of  the  UUT.  Vertical  lines  are  drawn  at  18  GHz  and  26  GHz  to  mark 
the  region  where  the  level  accuracy  specification  changes  to  ±2  dB. 

Maximum  Output:  Maximum  Unleveled  Power  (dBm)  vs  Frequency  (GHz) 

The  program  and  test  configuration  for  this  test  are  similar  to  those  used  in  the  output  level 
test.  The  only  difference  is  that  the  output  level  called  for  by  the  controller  is  greater  than  the  unit 
is  capable  of  producing.  This  causes  the  UUT  to  output  the  maximum  power  it  has  available  in  an 
unleveled  mode.  The  plot  in  Appendix  B/C  shows  this  unleveled  fluctuation  very  clearly  on  a  set 
of  axes  similar  to  those  used  for  the  level  accuracy  plot.  The  important  criterion  for  this  plot  is  that 
the  lowest  value  of  the  unleveled  output  power  must  be  greater  than  +5  dBm  for  the  leveling  loop  to 
operate  correctly  at  +5  dBm. 

Level  Calibration:  Verification  of  Output  Attentuator 

This  test  involves  checking  the  10  dB/step  attenuator  of  the  UUT  over  its  entire  operating 
range  of  0  to  -90  dB.  Since  the  number  of  possible  measurements  which  could  be  made  is  extremely 
large,  five  frequencies  (0.1,  2,  9, 18,  and  22  GHz)  across  the  FR  of  the  UUT  were  selected.  If  a 
problem  is  detected  or  suspected,  more  frequencies  in  the  suspect  region  may  be  examined.  If  any 
errors  in  attenuator  calibration  are  found,  they  are  confirmed  by  making  a  completely  independent 
measurement  with  the  Weinschel  VM-4A. 

The  programmable  spectrum  analyzer  was  chosen  for  this  test  over  the  Weinschel  VM-4A  for 
several  reasons:  simpler  test  configuration,  less  time  required  to  make  connections,  frequency  range 
is  covered  by  single  test  set-up  (VM-4A  limited  to  18  GHz  without  external  down  conversion),  and 
the  analyzer  allows  an  operator  to  view  actual  level  of  signal  being  measured  (confidence  in 
measurement  is  increased).  A  discussion  of  the  WM-4A  program  and  operation  is  the  subject  of  a 
soon-to-be  released  report  [3] . 

Since  the  attenuator  on  the  SD-1626  is  not  programmable,  while  that  on  the  GT-1026  is 
programmable,  two  separate  versions  of  this  program  had  to  be  written.  Only  the  Giga-tronics 
version  is  given  in  Appendix  D.  The  Systron-Donner  version  differs  in  that  each  time  the  attenuator 
is  stepped  the  program  must  pause,  tell  the  operator  to  make  the  step  change,  and  then  continue 
with  the  measurement.  The  output  data  from  this  test  can  be  configured  in  two  ways:  all  measure¬ 
ments  can  be  printed  in  tabular  form,  or  only  errors  greater  than  a  specified  limit  can  be  printed; 
this  saves  paper  and  operator  time  in  examining  the  data.  Appendix  D  shows  this  latter  type  of  ' 
data  presentation.  The  program  is  arbitrarily  set  to  print  out  whenever  an  error  greater  than  ±1.5  dB 
is  detected  between  the  Nom  Level  and  Meas  Level  columns.  The  test  printout  includes  the  date, 
model  and  serial  numbers  of  the  UUT,  and  the  magnitude  to  any  detected  errors  shown  in  the  Diff 
(difference)  column.  The  completion  of  the  test  is  signaled  by  a  two-line  printout.  The  first  line 
gives  the  condition  for  error  printing,  and  the  second  line  lists  the  frequencies  which  were  checked. 
The  program  listing  given  in  Appendix  D  is,  again,  for  the  HP-26/36  controller(s)  using  HPL  lan¬ 
guage  and  mandates  the  use  of  a  HP-8566A  Spectrum  Analyzer. 
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Spur  Hunt:  Harmonic /Nonharmonic  Spurious  Response  Search 

This  test  programs  the  UUT  to  output  approximately  20  randomly  selected,  unmodulated 
frequencies.  At  each  frequency,  the  8566A  Spectrum  Analyzer  examines  successive  1  GHz-wide 
portions  of  the  frequency  spectrum  for  any  discrete  responses  greater  than  the  specification  limit 
of  -55  dBc.  If  any  responses  are  found,  the  analyzer  determines  their  frequency  and  level  and 
prints  them  out  on  the  hardcopy  test  record.  After  the  test  is  complete,  any  printouts  which  exceed 
the  specification  are  examined  in  a  manual  mode  of  operation  to  verify  that  they  are  true  responses 
at  the  levels  indicated.  This  test  consumes  approximately  20  minutes  of  actual  running  time  and  is  a 
good  example  of  the  power  of  the  automated  testing  procedure. 

The  printout  for  this  test  in  Appendix  E  shows  a  line  which  indicates  that  the  UUT  was  set  to 
a  specific  test  frequency  (1026  Set  Freq  =  X.XXX  GHz),  followed  by  all  the  detected  responses 
(frequency  and  level)  for  that  set  frequency  on  indented  lines.  If  no  spurious  responses  were 
detected,  only  the  fundamental  output  responses  (indicated  by  its  high  level)  should  be  printed.  At 
generator  frequencies  above  23  GHz,  the  fundamental  is  not  detected  because  the  search  is  only 
from  0  to  23  GHz.  To  obtain  the  true  level  of  any  spurious  response  relative  to  the  fundamental 
(dBc),  a  correction  for  the  cable  loss  at  the  spurious  frequency  must  be  added  to  the  values  given 
in  the  Level  (dBm)  column  of  the  data  sheet.  This  program,  written  for  the  HP-26/36 
controller(s),  uses  HPL  language  and  necessitates  the  use  of  the  HP-85 66A  Spectrum  Analyzer. 

Phase  Noise:  10  kHz  Offset  in  1  Hz  Bandwidth 

This  test  programs  the  UUT  to  output  approximately  20  randomly  selected,  unmodulated 
frequencies.  At  each  frequency,  the  8566A  Spectrum  Analyzer  tunes  itself  to  center  the  selected 
frequency,  opens  its  span  to  10  kHz/div,  and  measures  the  noise  level  one  division  away  from  the 
carrier  frequency.  The  firmware  in  the  8566A  then  converts  the  measurement  from  the 
measurement  bandwidth  to  an  equivalent  1  Hz  bandwidth.  The  data  printout  from  this  test  gives 
the  frequency  of  the  test,  the  measured  carrier  level  (dBm),  the  10  kHz  offset  level  converted  to  a 
1  Hz  bandwidth  in  dBm /Hz,  and  the  phase  noise  at  the  10  kHz  offset  in  dBc/Hz. 

This  program  is  written  for  the  HP-26/36  controller,  using  HPL  language,  and  requires  the  use 
of  the  HP-85 66 A  spectrum  analyzer.  This  test  requires  approximately  3  minutes  to  complete.  The 
test  setup  is  identical  to  that  used  in  the  spur  hunt  test  and  is  given  again  in  Appendix  F  for 
consistency. 

On/Off  Ratio:  Pulse  or  Square  Wave  Carrier  On  to  Off  Ratio 

This  test  programs  the  UUT  to  output  approximately  20  randomly  selected  frequencies,  to 
which  internal  square  wave  modulation  is  applied.  The  8566A  is  tuned  to  each  frequency,  and  its 
span  is  set  to  zero  Hz  to  recover  the  modulated  square  wave.  The  delta  marker  function  of  the 
analyzer  is  then  used  to  measure  the  peak -to -peak  value  of  this  recovered  modulation  in  dB,  which 
just  happens  to  be  the  desired  on/off  ratio.  Each  reading  and  its  frequency  is  recorded  on  the  hard¬ 
copy  printout.  After  the  final  ratio  is  measured,  the  average  on/off  ratio  for  all  the  measurements 
is  computed  and  printed. 

Typical  data  from  this  test,  the  measurement  test  set-up,  and  a  listing  of  the  test  program 
written  for  the  HP-26/ 36  controlled s)  in  HPL  language  is  shown  in  Appendix  G.  The  program  listing 
is  the  Systron-Donner  version.  Separate  versions  are  necessary  due  to  the  software  operation  of  the 
square-wave  modulation  function. 
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Sweep  Output:  Sweep  Mode  Level  Output  Check;  Ramp  Output  Check 

This  test  calls  for  the  swept  output  of  the  UUT  to  be  measured  via  a  crystal  detector 
connected  directly  to  the  RF  output.  The  output  of  this  detector  is  sampled  by  an  A/D  converter 
which  takes  readings  every  10  ms.  At  the  completion  of  the  sweep,  the  A/D  detector  is  set  to 
monitor  the  sweep  ramp  output  voltage  as  the  frequency  again  is  swept  through  the  same  range  as 
before.  The  detector  output  is  plotted  on  the  Y-axis  vs  the  ramp  voltage  on  the  X-axis.  The  output 
of  the  detector  is  then  calibrated  in  dBm  by  reconnecting  the  A/D  cable  to  the  crystal  detector  and 
by  plotting  the  measured  response  for  various  dB  settings  of  the  UUT’s  output  as  its  CW  frequency 
is  stepped  (20  steps)  across  the  range  of  the  sweep. 

Some  typical  plots  from  this  test,  the  test  set-up,  and  a  program  listing  for  the  HP  26/36  con¬ 
trollers)  in  HPL  language  are  given  in  Appendix  H.  On  the  plot,  the  left  vertical  axis  is  proportional 
to  the  output  voltage  of  the  crystal  detector.  The  right  vertical  markings  give  the  translation  of 
these  relative  A/D  numbers  to  power  levels  in  dBm.  The  horizontal  frequency  axis  is  a  constructed 
digital  scale  based  on  the  analog  sweep  ramp  voltage  and  the  sweep  start  and  stop  limits.  The  dis¬ 
crete  spikes  which  occur  are  due  to  band  changes,  another  oscillator  being  switched  in  to  provide 
the  output  over  that  portion  of  the  sweep  range. 

Center  Frequency  Pulling:  During  Pulse  Modulation 

This  test  measures  the  amount  that  the  center  frequency  of  the  UUT  is  displaced  due  to  the 
incidental  FM  created  during  pulse  modulation  of  the  UUTs  CW  output  frequency.  The  modulation 
applied  to  the  CW  signal  is  10  microseconds  (ps)  wide  at  a  pulse  repetition  frequency  (PRF)  of 
5  kHz.  The  program,  wirtten  in  HPL  for  the  HP-26/36  controller,  requires  the  use  of  the  HP-8566A 
Spectrum  Analyzer.  The  UUTs  output  frequency  may  be  varied  over  all  or  any  portion  of  the 
0  to  23  GHz  range  of  the  analyzer.  For  this  test  the  pulse-modulated  CW  frequency  is  stepped  in 
100  MHz  steps  from  100  MHz  to  23  GHz.  At  each  frequency  step,  the  analyzer  tunes  to  the  set 
frequency  and  recovers  the  modulation  envelope  pattern  of  the  pulse  modulated  signal.  Using  the 
delta  frequency  marker  function  of  the  8566A,  the  frequency  shift  (+  or  -)  is  measured  between  the 
set  frequency  at  the  center  of  the  display  and  the  peak  of  the  detected  envelope.  From  this  differ¬ 
ence,  the  frequency  offset  of  the  center  frequency  of  the  modulated  signal  from  the  true  center 
frequency  of  the  CW  output  is  computed.  If  this  offset  is  greater  than  1  part  in  10~6  (lpplO6),  the 
printer  outputs  the  set  frequency;  the  frequency  error,  delF,  in  Hz;  and  the  frequency  offset, 
delF/F,  in  parts.  At  the  conclusion  of  the  test,  the  maximum  positive  and  negative  offsets  are 
printed  with  the  number  of  frequencies  which  exceeded  lpplO6 . 

A  typical  data  sheet  giving  the  date  of  the  test,  the  model  and  serial  numbers,  the  program 
listing  in  HPL  language,  and  the  test  setup  is  shown  in  Appendix  I. 

Power  Meter  Accuracy:  Internal  PM  vs  External  Reference  PM 

In  this  test,  power  measurements  are  made  with  the  internal  crystal  power  meter  (PM)  of  the 
UUT  for  comparison  to  identical  measurements  made  with  a  calibrated  HP-436A  PM.  The  differ¬ 
ences  at  each  frequency  and  level  are  then  computed  for  comparison  with  the  specification.  Provi¬ 
sion  is  made  within  the  program  for  two  separate  8485A  sensors  and  their  appropriate  correction 
factors  which  will  be  used  to  make  the  reference  measurement. 

Appendix  J  gives  the  diagram  for  the  test  setup,  a  program  listing  in  HPL  for  the  HP -26 /36 
controller(s),  and  a  sample  data  printout  from  a  typical  test.  The  program  is  flexible;  it  allows  any 
start,  stop,  and  step  size  to  be  chosen  for  this  test.  The  Giga-tronics  1026  test  generally  is  run  from 
2  GHz  to  26  GHz,  in  2  GHz  steps,  at  three  or  four  power  output  levels  from  0  to  -25  dBm,  since 
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the  power  reading  from  the  UUT  can  be  made  automatically  via  the  IEEE-488  bus.  The  step  size 
for  this  test  is  usually  selected  to  be  4  GHz  since  the  PM  readings  from  the  Systron-Donner  1626 
must  be  typed  in  manually  as  they  are  read  from  the  UUT’s  front  panel.  For  this  reason  and  because 
of  the  cable /sensor  switching  involved,  two  separate  versions  of  this  test  have  been  written,  neither 
of  which  is  totally  automatic  from  start  to  finish.  The  data  sheet  first  lists  the  output  level  setting 
of  the  UUT  for  the  test.  This  is  followed  by  six  columns  of  data:  the  frequency  in  GHz,  the  UUT 
PM  reading  in  dB,  the  reference  PM  readings  from  the  HP-436 A,  and  the  difference  of  the  UUT 
reading  minus  the  reference  readings.  For  output  levels  greater  than  -20  dBm,  the  differences 
should  be  less  than  ±1  dB  below  18  GHz  and  ±2  dB  above  18  GHz.  For  outputs  from  -20  dBm  to 
-30  dBm,  the  specification  is  ±2  dB  and  ±3  dB  respectively. 

Internal  Pulse  Width:  Calibration,  Maximum,  Minimum  Pulse  Widths  Measured 

In  this  test,  the  internal  pulse  modulator  operation  is  checked  by  setting  its  pulse  width  to  the 
calibrated  1  /is  position,  the  variable  minimum  pulse  width  position,  and  the  variable  maximum 
pulse  width  position  at  a  PRF  of  5  kHz  and  about  ten  different  RF  output  frequencies  across  the 
FR  of  the  UUT.  For  each  pulse  width  at  each  frequency,  the  85 66 A  is  tuned  to  place  the  RF  out¬ 
put  frequency  at  the  center  of  the  display.  The  span  appropriate  to  the  pulse  width  is  then  chosen, 
so  that  the  first  two  or  three  lobes  of  the  modulated  (sin  x)/x  pattern  are  displaed  on  the  analyzer’s 
CRT.  The  test  operator  is  told  to  move  the  marker  to  the  first  null  above  the  main  lobe.  With  this 
marker  positioned  correctly,  the  operator  continues  the  program,  which  reads  the  marker  separa¬ 
tion  in  kHz  and  computes  the  pulse  width  in  /is  as  the  reciprocal  of  this  separation.  This  procedure 
is  followed  for  each  of  the  three  pulse  widths  at  every  frequency.  After  the  maximum  width  is 
measured,  the  controller  displays  the  results  of  these  calculations  in  the  table  format  shown  in 
Appendix  K. 

Since  neither  the  variable  pulse  width  nor  PRF  controls  are  programmable,  this  test  is  only 
semiautomatic.  This  means  that  the  program  operation  must  be  halted  while  the  test  operator 
performs  a  nonprogrammable  function  and  then  restarted  after  the  action  is  completed.  Two 
separate  versions  of  this  program  are  required  due  to  the  differing  nature  of  the  bus  controls  on 
the  units  from  two  separate  manufacturers.  The  test  configuration  and  Systron-Donner  version  of 
this  program,  which  is  written  in  HPL  for  the  HP -26/36  controller(s)  and  requires  approximately  10 
minutes  to  complete,  are  given  in  the  sample  data  printout  in  Appendix  K. 

External  Pulse  Modulation:  Visual  Verification 

This  semiautomatic  test  uses  three  pulse  widths  and  four  PRFs  from  an  external  pulse  gener¬ 
ator  to  modulate  five  different  RF  frequencies  from  the  UUT  through  its  external  modulation  input 
jack.  Initially,  the  modulation  is  applied  to  a  3  GHz  carrier,  and  the  85 66 A  is  adjusted  to  display 
the  familiar  (sin  x)/x  pattern.  Then  the  RF  frequency  is  changed  while  the  test  operator  observes 
the  spectrum  analyzer  display  and  verifies  that  the  same  general  pattern  is  present  at  the  other  RF 
frequencies.  Each  time  a  change  in  the  modulating  signal  is  required,  the  operator  is  instructed  by 
the  controller,  and  the  new  condition  is  manually  set  on  the  pulse  generator.  This  allows  any  avail¬ 
able  pulse  generator  to  perform  this  test.  The  printout  for  this  test  is  simply  the  test  name  and  date 
along  with  the  model  and  serial  numbers  of  the  UUT.  Any  notes  on  anomalies  in  the  observed 
patterns  can  be  typed  in  by  the  test  operator  following  these  data. 
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Two  separate  versions  of  this  test  were  required  also  due  to  the  differing  nature  of  the  bus 
controls.  The  test  verification  printout,  the  test  setup,  and  a  listing  of  the  program  for  the  Giga- 
tronics  generator  written  in  HPL  for  the  HP -26/36  controller(s)  are  given  in  Appendix  L. 

External  Reference  Lock:  Operation  from  an  External  Standard 

This  test  checks  the  UUT’s  ability  to  synchronize  its  output  frequency  with  an  externally 
applied  reference  signal.  Since  the  UUTs  from  the  two  different  manufacturers  require  different 
reference  frequency  inputs  (10  MHz  for  the  Giga-tronics,  1  MHz  for  the  Systron-Donner),  the  test 
configuration  shown  in  Appendix  M  can  generate  either  of  these  references  from  a  standard  5 
MHz  crystal  source.  Due  to  this  difference,  this  test  is  also  written  in  two  separate  versons.  The 
program  initially  displays  the  test  setup  on  the  controller’s  CRT  and  waits  for  the  test  operator  to 
make  the  necessary  connections.  After  the  correct  reference  is  generated  by  the  HP-8111A  function 
generator,  it  is  plugged  into  the  UUT’s  reference  input.  The  UUT  is  then  programmed  for  approxi¬ 
mately  20  CW  output  frequencies  across  its  entire  frequency  range.  At  each  frequency,  the  output 
frequency  is  checked  on  the  counter,  which  is  driven  by  the  same  reference.  The  status  message 
from  the  UUT  is  read  by  the  controller  to  ensure  that  the  generator  is  locked  to  the  external  refer¬ 
ence  and  levelled.  If  the  frequency  error  is  greater  than  1  kHz,  the  printout  will  state  this  in  kHz, 
together  with  the  magnitude  of  the  error. 

The  program  listing  given  in  Appendix  M  is  for  the  Systron-Donner  unit  and  is  written  in  HPL 
for  the  HP-26/36  controller(s) .  The  frequency  counter  used  in  this  test,  for  which  the  software  in 
the  program  listing  is  written,  is  the  Systron-Donner  Model  6054B. 

Remote  Control  Operation:  IEEE-488  Bus  Operation 

There  is  no  specific  test  which  checks  the  remote  operation  via  the  IEEE-488  bus.  This  func¬ 
tion  is  checked  by  the  proper  operation  of  the  UUT  during  all  the  other  tests  listed  in  this  report. 

Residual  FM:  Residual  Frequency  Modulation  on  CW  Carrier 

This  test  uses  the  HP-8901A  Modulation  Analyzer  to  measure  the  residual  FM  present  on  the 
UUTs  CW  carrier  in  a  50  Hz  to  15  kHz  bandwidth.  For  residual  FM,  the  AVERAGE  detector 
measurement  is  made,  and  this  result  is  multiplied  by  12  and  2  J2  to  obtain  the  peak  and  peak- 
to-peak  readings  shown  in  the  data.  The  residual  FM  specification  is  less  than  1  kHz  peak-to-peak 
(p-p)  in  a  50  Hz  to  15  kHz  bandwidth  at  output  frequencies  below  1  GHz.  Above  1  GHz,  the  speci¬ 
fication  is  0.0001%  of  the  CW  carrier  frequency.  Due  to  the  input  frequency  limitation  of  the 
8901 A,  which  is  1.3  GHz,  two  separate  versions /configurations  of  this  test  are  used.  These  are  both 
given  in  Appendix  N.  For  frequencies  above  1.2  GHz,  the  second  test  setup  is  used.  This  employs 
a  mixer  and  another  synthesizer  as  a  local  oscillator  to  translate  the  output  of  the  UUT  down  to 
the  measurement  range  of  the  8901A.  In  most  cases,  the  beat  frequency  chosen  in  this  set-up  was 
1.0  GHz.  The  residual  FM  of  the  local  oscillator  must  be  substantially  below  that  of  the  UUT  to  be 
measured;  an  HP-8672A  or  HP-8340A  work  well  in  this  application.  If  no  high  quality  local  oscil¬ 
lator  is  available,  two  of  the  UUTs  may  be  used  with  the  assumption  of  equal  contribution  to  the 
measured  residual  FM.  In  this  case,  the  final  results  should  be  divided  by  the  J~2  to  obtain  the 
residual  FM  for  a  single  unit.  For  this  special  case,  the  peak-to-peak  residual  FM  of  a  single  UUT  is 
equal  to  twice  the  measured  AVERAGE  FM  reading  of  the  8901A. 

The  program  for  residual  FM,  written  for  the  HP-26/36  controller(s)  in  HPL  language,  is  given 
in  Appendix  N  along  with  a  typical  printout  of  the  test  data. 
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Frequency  Counter  Operation:  Checks  Counter  (Giga-tronics  only) 

This  test  is  not  covered  by  the  equipment  specification  since  the  frequency  counter  function 
is  an  added  feature  of  the  Giga-tronics  1026.  However,  since  it  is  available  and  will  be  used  when  the 
units  are  deployed  in  the  Fleet,  verification  of  its  proper  operation  is  necessary.  The  simplest 
manner  in  which  this  check  may  be  made  is  to  use  two  Giga-tronics  units,  one  as  the  UUT  and  the 
other  as  the  frequency  source  to  be  counted.  The  Program  written  in  Appendix  P  was  developed  for 
this.  This  requirement  is  necessary  because  a  single  Giga-tronics  unit  cannot  count  directly  its  own 
frequency.  The  program  sets  the  frequency  source  to  approximately  10  random  CW  frequencies. 

It  then  sets  up  a  search  window  on  the  counter  UUT  which  encompasses  the  particular  source 
frequency.  The  UUT  counter  is  then  put  into  its  measure  mode.  When  it  locks  onto  the  input  fre¬ 
quency,  the  front  panel  of  the  UUT  displays  the  measured  frequency.  It  is  then  available  to  be  read 
by  the  controller,  which  prints  the  set  frequency,  measured  frequency,  and  the  difference  on  the 
test  record.  If  the  counter  does  not  lock  or  acquire  the  input  frequency  after  trying  various  search 
window  sizes  and  sample  rates,  the  test  output  will  print  that  the  counter  could  not  find  the 
particular  frequency  and  proceed  to  the  next  test  frequency. 

The  counter  check  program,  written  for  the  HP-26/36  controller(s)  in  HPL  language,  is  given  in 
Appendix  O,  along  with  a  printout  of  a  sample  test  data  sheet  and  the  diagram  of  the  test 
configuration. 

Cable  Calibration  Check:  Functional  Operation  (Giga-tronics  only) 

This  test  is  not  covered  by  the  equipment  specification  because  the  cable  calibration  is  an 
added  feature  of  the  Giga-tronics  1026.  Since  it  is  available  and  will  be  used  when  the  units  are 
deployed  in  the  Fleet,  verification  of  its  proper  operation  is  necessary.  The  program  written  for  this 
test  tells  the  operator  exactly  what  to  do  on  the  UUT  to  perform  the  cable  calibration  measure¬ 
ment.  After  this  is  completed,  the  cable  is  removed  from  the  internal  power  meter  of  the  UUT  and 
attached  to  the  power  sensor  of  he  HP-436A  power  meter.  At  this  time,  a  level  accuracy  test  (see 
Output  Level  Accuracy  test  above)  is  run  on  the  UUT  as  if  the  sensor  were  connected  directly  to 
the  RF  output  connector.  If  the  UUT  is  performing  as  it  should,  the  power  loss  in  the  cable  will  be 
compensated  for  automatically  by  the  UUT,  and  the  plot  of  the  output  level  will  look  similar  to 
those  shown  in  Appendix  B/C.  The  only  precaution  here  is  that  the  levelled  power  asked  for  at  the 
end  of  the  cable  must  not  require  an  output  power  from  the  UUT  greater  than  it  has  available.  This 
would  result  in  an  unleveled  condition  in  the  leveling  loop. 

A  sample  plot  from  this  test,  a  listing  of  the  program,  and  a  diagram  of  the  test  configuration 
are  given  in  Appendix  P.  The  program  is  written  in  HPL  language  for  the  HP-26/36  controller(s) 
and  requires  approximately  10  minutes  to  complete. 

SUMMARY  AND  CONCLUSIONS 

This  report  summarizes  the  detailed  operation  of  the  sample  lot  test  procedures  used  as  the 
accept /reject  criteria  for  the  Navy’s  new  synthesized  microwave  signal  generators  manufactured  by 
Systron-Donner,  Inc.  and  Giga-tronics,  Inc.  For  those  desiring  to  use  these  procedures,  the  appen¬ 
dices  give  a  detailed  program  listing  as  well  as  the  test  equipment  configuration  for  each  test. 

These  procedures  have  been  used  with  great  success  at  the  Naval  Research  Laboratory  to  con¬ 
duct  sample  testing  of  production  lots  since  September  1982.  They  will  continue  to  be  employed 
in  this  same  capacity  and  will  be  expanded  as  required. 
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These  test  procedures  represent  a  new  level  of  quality  in  the  ability  of  the  Navy  to  test  and 
evaluate  the  performance  characteristics  of  its  synthesized  microwave  signal  generator  assets.  In 
several  areas  they  exceed  the  manufacturers’  capabilities  to  measure  the  performance  parameters 
of  their  equipment. 

The  use  of  the  Hewlett-Packard  Model  8566A  Spectrum  Analyzer  and  the  virtual  elimination 
of  the  need  for  subjective  judgments  on  the  part  of  the  test  operator  have  reduced  test  time  require¬ 
ments  significantly  (5:1  conservative  estimate).  At  the  same  time,  the  very  highest  degree  of 
accuracy  is  maintained . 

These  test  procedures  clearly  demonstrate  the  advantages  of  performing  complex  testing  using 
a  central  processor /computer  connected  via  an  IEEE -488  interface  bus  to  the  test  instrumentation. 
The  most  important  advantages  are: 

(1)  Test  results  are  precisely  and  accurately  documented. 

(2)  Test  procedures  are  well  defined  and  standardized. 

(3)  Test  time  is  significantly  reduced. 

(4)  All  data  reduction  calculations  are  done  precisely  and  accurately  according  to  data  reduc¬ 
tion  algorithms. 

(5)  The  training  and  experience  required  for  a  test  operator  is  significantly  reduced. 
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STATUS  TEST 


2808  CV  Fr*c|u«nol« 


. !EEE-408_ByS_  , 

Fig.  A1  —  Status  test  —  Frequency  LOCK /Amplitude  LEVEL 
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STATUS  TEST 
Language:  BASIC  Controller:  HP-85 


10  ?  Unattended  STATUS  TEST  on  1  or  2  units  ! T < 1 -2) I 
t  nUn  °ne  <725)  into  f req  uency  counter 

H"  SQn°cnR/ dTp ^ 72^ }  read  only  statas  message 
dU  !  Use  SD-6054B  Counter 

35  !  Revision  4:  JJO  10/7/82 

40  ON  ERROR  GOSUB  1140 

50  LINPUT  "INITIALIZE?  Y/N",Q$ 

u  then  list  Gooo’65o°  • pflusE 

1  iPTScSMg  «‘sg<s:r° 

90  CLEAR  @  F0=0  @  N=0  @  1=0 
100  WAIT  100 
110  A< 1 >=725  @  A<2)=724 
140  A=0 

190  DISP  "UUT?  G=G/T102G  S=S/D1G2G  0=0THER"‘ 

200  INPUT  U$@  U$=UPC$<U$t 1,1])  ’ 

210  GCLEAR  @  CLEAR 
220  KEY  LABEL 
230  CLEAR 

240  DISP  "Connect  Equipment" 

250  DISP  "(CONT)  when  ready" 

2G0  PAUSE 
270  F1= . 1 

280  DISP  "START  Freq  (GHz)  CE0L3= . 1" ; 

290  INPUT  FI 
300  F2=26.5 

320  I(5put"f2°P  Freq  <GHl>  [E0L1-26'5"i 
330  F3=2640 

340  DISP  "STEPS  [EOL 1=2640"; 

350  INPUT  F3 
3G0  CLEAR 
3G1  E=0 

3G3  iNPUT"EEL1=StartN0W  /  Enter  StartHQUR"'* 

3G4  IF  E#0  THEN  GOSUB  5000 

365  IMAGE  7 A , DDD . D , 3A , DDD . D , 7A , DDDDD 

370  PRINT  USING  3G5  ;  "RANGE  I", FI,"  ->",F2;"I  Steps", F3 
380  E=0 

390  IF  Z<3  THEN  1=1  @  GOTO  500 
400  IF  Z>2  THEN  1=1+1  @  GOSUB  G000 
500  FOR  J=F0  TO  F3 
510  F=F1+<F2-F1)*J/F3 
5G0  IF  U$="G"  THEN  GOSUB  1200 
570  IF  U$="S"  THEN  GOSUB  1300 
580  IF  U$="0"  THEN  GOSUB  1400 
583  IF  J#F0  THEN  590 

585  IF  INT(Z/2)#Z/2  AND  1=1  THEN  PRINT  "  E/M  F(GHz)  F(GHz) 
590  IF  INT(Z/2)#Z/2  AND  1=1  THEN  GOSUB  1100 
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F , Q , <Q-F)*1 


THEN  DISP  USING  G32  ;  F,"  STAT 


F,"  STAT 


600  IF  U$="G"  THEN  GOSUB  3000 
610  IF  U$="S"  THEN  GOSUB  3100 
620  IMAGE  DDD . DDD , X , DDD . DDD , X , SDDD . DDD 
630  IF  INT (Z/2)#Z/2  AND  1=1  THEN  DISP  USING  620 
000000 

632  IMAGE  DDD . DDD , 7A .DDD , DDD 

634  IF  INT<Z/2)=Z/2  AND  U$="G’ 

US" ,B  ,C  @  GOTO  638 

635  IF  INT<Z/2) =Z/2  AND  U$="S"  THEN  DISP  USING  632 
US" ,  B  @  GOTO  638 

636  IF  Z+I=5  AND  U$="G"  THEN  DISP  USING  632  ;  F,"  STATUS", B,C 

637  IF  Z+I=5  AND  U$="S"  THEN  DISP  USING  632  ;  F,"  STATUS", B 

638  WAIT  200 
640  NEXT  J 
650  PRINT 

660  GOSUB  2000 

665  IF  1=1  AND  Z>2  THEN  370 

670  GOTO  5000 

680  PAUSE 

1000  !  ****  SUBROUTINES  ****  ! 

1100  !  —  FREQ  MEASURE  — -  ! 

1102  IF  F<2  THEN  OUTPUT  A4  ;"HEN" 

1103  IF  F>=2  AND  F< 1 0  THEN  OUTPUT  A4  ;"HDN" 

1104  IF  F>=1 0  THEN  OUTPUT  A4  ;"HCN" 

1105  ENTER  A4  ;  Q 

1117  IF  F<2  THEN  OUTPUT  A4  ;"N" 

1118  IF  F<2  THEN  ENTER  A4  ;  Q 

1120  IMAGE  "Err  " , DD . DDD , X , SD . DDe , X , SD . DDe 
1122  IMAGE  "MEAS  " , DD . DDD , X , SD . DDe , X , SD . DDe 
1125  Q=Q/1 000000000 

1130  IF  ABS<<F-Q)/F)>. 00001  THEN  PRINT  USING  1120  ;  F,Q-F,<Q- 
F)/F 

1135  IF  INT(F/5)=F/5  OR  F=1  THEN  PRINT  USING  1122  ;  F,Q-F.<Q- 
F)/F 

1140  RETURN 

1200  *  — G/T  1026  FREQ  SET—  ! 

1205  IF  J=0  THEN  OUTPUT  A<I>  ; 

1210  IMAGE  2A,5D 
1215  OUTPUT  A< I)  USING  1210  ; 

1220  WAIT  200 
1225  RETURN 

1300  !  --S/D  1626  FREQ  SET--  ! 

1305  IF  J=0  THEN  OUTPUT  A<I>  ; 

1310  IMAGE  A,5Z 
1315  OUTPUT  A( I)  USING  1310  : 

1320  WAIT  200 
1325  RETURN 

1400  ?  —  OTHER  FREQ  SET  —  ! 

1405  IF  J=0  THEN  OUTPUT  A(I>  ;"K0503 
1410  IMAGE  A,9Z,2A 

1415  OUTPUT  A< I )  USING  1410  ;  "P" ,F*1 0000000 , "Z9" 

1420  WAIT  200 
1425  RETURN 


'GENFIXED  MODOFF  LEVEL  5’ 
*FA",1000*F 


’H001 L0M0N0G0F0E0D0’ 


’H",1000*F 


@  OUTPUT  728  :"A13B24' 
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1500  !  ---  BLOCK  DIAGRAM  —  ! 

1510  GCLEAR 

1520  SCALE  0,10,0,10 

1530  MOVE  0,5  @  GOSUB  1640 

1540  MOVE  7,5  @  GOSUB  1640 

1550  MOVE  1,5.9  @  LABEL  MUUTM 

1560  MOVE  7. 5, 5. 9  @  LABEL  "COUNTER" 

1570  MOVE  3,6  @  IDRAW  2,0 

1580  MOVE  7,6.5  9  IDRAW  -1.5,0 

1590  MOVE  7,5.5  @  IDRAW  -1.5,0 

1600  MOVE  5.25,5  @  IDRAW  0,2 

1610  MOVE  2,9.2  @  LABEL  "CONFIDENCE  TEST" 

1620  PAUSE 

1630  CLEAR  @  RETURN 

1640  IDRAW  3,0  @  IDRAW  0,2  @  IDRAW  -3,0  @  IDRAW  0,-2  @  RETURN 
2000  !  —  LABEL  TEST  —  ! 

2010  IF  U$="G"  THEN  S$=S2$ 

2020  IF  U$="S"  THEN  S$=S2$ 

2025  IF  U$="0"  THEN  S$=S2$ 

2030  IF  U$="G"  THEN  S1$="G/T  1026" 

2040  IF  U$="S"  THEN  S1$="S/D  1626" 

2045  IF  U$="0"  THEN  SI $="HP-8672A-E24" 

2050  IMAGE  13A,  8X,11A 

2055  IF  1=1  AND  INT<Z/2>#Z/2  THEN  PRINT  "  CONFIDENCE  TES 

T" 

2056  IF  1=2  AND  Z=3  THEN  PRINT  "  STATUS  TEST" 

2057  IF  INT<Z/2)=Z/2  THEN  PRINT  "  STATUS  TEST" 

2060  PRINT  USING  2050  ;  S1$,S$ 

2070  PRINT  USING  "10A,12X,9A"  ;  MDY$<MDY(D$)+DATE-1 >, TIMES 
2080  PRINT  USING  ”4A ,2A ,3A , 1 2X ,5A ,3A , A"  ;  "T  =  ",T$,"  'C","RH 

_  *•  J_|<g  ny  «• 

2085’PRiNT  ""  @  PRINT  ""  @  PRINT  ”" 

2090  RETURN 

3000  !  +++++  STATUS  +++++ 

3002  !  —  Giga-tronics  -- 
3004  OUTPUT  A< I>  ; "SENDSTATUS" 

3006  ENTER  A(I)  ;  Z$ 

3008  B=VAL<Z$[ 7 ,81 ) 

3010  C=VAL(Z$t 15,161) 

3012  IMAGE  10A,DDDDD.DDD 

3014  IF  B=0  THEN  PRINT  USING  3012  ;  "UNlock  at",F 

3016  IF  C=0  THEN  PRINT  USING  3012  ;  "UNlevel  at",F 

3018  RETURN 

3100  !  --  Systron-Donner  — 

3102  ENTER  A<I>  ;  B 
3104  IMAGE  10A,DDDD.DDD 

3106  IF  B=1  OR  B=3  THEN  PRINT  USING  3104  ;  "UNlock  at",F 

3108  IF  B=2  OR  B=3  THEN  PRINT  USING  3104  ;  "UNlevel  at",F 

3110  RETURN 
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3200  !  --  HP-8672A  — 

3202  ENTER  A < I >  ;  B 
3204  B=VAL<DTB$(B) > 

3206  B=INT (B/1 00) 

3208  OB/10 
3210  B=INT < B / 1 0) 

3212  IF  F>2  AND  FP<C>*0  THEN  PRINT  USING  "10A,X,DDD.DDD"  ;  "U 
Nlevel  at" ,  F 

3214  IF  FP<B/10)#0  THEN  PRINT  USING  " 1 0A . X , DDD . DDD"  ;  "UNlock 
at" ,  F 

3216  RETURN 

4000  OUTPUT  A4  ;"B2R1"  9  RETURN 
4100  OUTPUT  A4  ;"B3R1"  9  RETURN 
5000  !  —  TEST  TIMING  — 

5010  ALPHA  0,0  9  CLEAR  9  1=0 

5020  ALPHA  6,10 

5030  DISP  "  TIME  OF  DAY" 

5040  DISP  "" 

5050  DISP  "  TIMES 

5055  DISP  ""  9  DISP  "" 

5056  DISP  "  Test  in  Progress" 

5057  DISP  "" 

5058  DISP  "  DO  NOT  DISTURB  " 

5060  A$=TIME$ 

5070  T=VAL( A$t 1 ,2]) 

5075  IF  E#0  AND  T=E  THEN  370 

5080  IF  E=0  AND  INT(T/4)=T/4  THEN  370 

5090  WAIT  1000 

5100  GOTO  5000 

6000  !  -  Initialize  - 

6010  D$="1 0/13/1982"  !  DATE 
6020  IF  1=2  THEN  S2$="s/n  25007-2" 

6030  IF  1=1  THEN  S2$="s/n  23004-1" 

6040  A< 1 )=725 
6050  A<2>=724 
6060  A4=720 

6070  T$="25"  !  TEMPERATURE 
6080  H$="60"  !  HUMIDITY 

6090  Z=4  !  Test  TYPE:  1=<1)conf  2=<1>stat  3=<1 )conf /< 1 )s 

tat  4=(2)stat! 

6500  RETURN 
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RANGE  i  . 1  — >  26.9!  Steps  2590 


STATUS  TEST 
S/D  1626 
12/01/ 1982 
T  =  4©  'C 


s/ri  23009-2 
16=30=18 
F:h  *  5©  /. 


RANGE  !  . 1  — »  26.9!  Steps  2590 


STATUS  TEST 
S/0  1626 
12/01/1982 
T  =  40  ‘C 


s/r»  25005-2 
17=00=37 
RH  =  50  ^ 


RANGE  !  .1  26.01  Steps  2598 


STATUS  TEST 
S/D  162b 
12/01/1982 
T  =  49  C 


s / n  23089-2 
28  =  30  = 1 6 
RH  =  58  7; 


RANGE  !  .1  — ■>  26.0!  Steps  2590 


STATUS  TEST 
S/D  1626 
12/01/1982 
T  =  40  1 C 


s/n  25085-2 
21 =00=36 
RH  =  58  * 


RANGE 


1  -+ 


26.0 


Steps  2590 


STATUS  TEST 
S/D  1626 
1 2  ''02  / 1 9  S  2 
T  =  48  • C 


s-'n  23009-2 
80  30=17 
RH  =  50  ?S 


RANGE  !  .1  -4  26.0!  Steps  259© 

Fig.  A2  —  Sample  data  sheet  — -  (Sheet  1  of  2) 


16 


NRL  REPORT  8755 


RANGE  ! 

UN level 

at 

UN 1  eve 1 

at 

UN level 

at 

UN  level 

at 

UN level 

at 

UNlevel 

at 

UN level 

at 

UNlevel 

at 

UN  lev/el 

a  t 

UN 1 evel 

at 

UNlevel 

at 

UNlevel 

at 

UNlevel 

at 

UNlevel 

at 

UNlevel 

at 

UNlevel 

at 

UNlevel 

a  t 

UNlevel 

at 

UNlevel 

a  t 

UN 1 evel 

a  t 

UNlevel 

a  t 

UNlevel 

a  t 

UNlevel 

at 

UN 1 eve  1 

a  t 

UNlevel 

a  t 

UN 1  eve  1 

a  t 

UNlevel 

at 

UNlevel 

a  t 

UNlevel 

a  t 

U N level 

at 

UNI evel 

a  t 

UNlevel 

a  t 

UN 1  eve 1 

a  t 

. 1  26.0! 
.  100 
.300 
.310 
.320 
.330 
.340 
.350 
.360 
.370 
.380 
.  390 
.400 
.410 
.420 
.430 
.  440 
.450 
.470 
.480 
1 1 . 790 
1 1 . 800 
1 1 .818 
17  560 
17.570 
17 . 580 
17.590 
17.910 
17.920 
1 7 . 930 
17.940 
17.950 
17.960 
17  970 


STATUS  TEST 
S'D  1626 
03/’!  1/1983 
T  =  40.0  1 C 


Steps  2590 


s-'n  26004-2 
09 : 0 1 : 02 
P.H  =  50 


Fig.  A2  —  Sample  data  sheet  —  (Sheet  2  of  2) 
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Appendix  B/C 

OUTPUT  LEVEL  ACCURACY  TEST 


260  CV  Frequencies 


Fig.  B/Cl  —  Level  accuracy /maximum  power  test 
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L-EVEL  ACCURACY  /  MAX  POWER  TEST 
Language:  HPL  Controller:  HP-26/36 


0:  "POWER  SWEEP  MEASUREMENT  with  CAL-F  CORRECTION  -  (PSt)": 
1:  "Author:  JJO  1/81;  revised  4/15/83": 

2:  For  S/DI 626  :  G/T1026  :  HP8673A;  PM  Direct  or  Coax;  436A 
(watts)" : 

3:  ONE  measurement/data  point;  tone  with  data": 


5:  for  J=0  to  9;sfk  J;next  J 
6:  getk  "PSkeys" 

7  :  gc 1 r ; ac 1 r 
8: 

9:  dim  XSI801 ,S$t251 ,V[31 , A$t8, 2] ,C$t 1 0] , YI303 ,N$[ 15] 

10:  dim  T$t8] ,D$[ 101 
11 :  gsb  "INIT" 

12:  dsp  "Press  k9  'INIT'  for  change  /  tCl=NOchange";stp 
13:  ent  "SET  Clock?  tCl=No  1=Yes",Q;if  f lgl 3 ; 0 >Q 
14:  if  Q= 1 ; cl  1  'CLOCK' 

15:  ent  "Test  Unit?  [CJ=G/T1026  1=S/D1626  2=HP8673A" ,G ; if  fig 
1 3 ;  0 }  G 


16:  ent  "tCl=Leveled  1=Max  Output", L;if  f 1 g 1 3 : 0 } L 

17-  ent  "8485  S/N?  [ Cl =648  1=163  2=180", S ; if  f lgl 3 ; 01S ; gsb  "6 

18:  if  S=1 ;gsb  "163" 

19:  if  S=2 ; gsb  "180" 

20:  ent  "START  Freq?  (GHz)  tCJ  =  0" .Vt 1 1  ;  if  f lgl 3 ; 0 } VT 1 3 
21:  ent  "STOP  Freq?  (GHz)  t Cl =26 . 5" , Vt 2 1 ; i f  f lgl 3 ; 26 . 5>Vt 2 1 
22:  ent  "#  Freq  STEPS?  IC]=265" , VC33 ; if  f lg 1 3 ; 265>Vt 3 3 
23:  if  L=0 ; ent  "Output  LEVEL?  (dBm)  fCl=5",W;if  f lgl 3 ;5>W 
24:  dim  Ft 0 : V[3 1 1 , At 0 : VE33 1 
25:  if  1=0; gsb  "CRT" 

26  * 

27:  "->" : for  1=0  to  Vt31 
28:  if  l=0;gto  50 
29:  0/T 

30:  "FREQ  EQUATION" :Vt 1 ]  +  (Vt21-Vt11 )*I/Vt3 1  IF 
31:  if  F<1 ;pbeep  100,. 05 
32:  if  F>=1 ;pbeep  F*100,.05 
33:  if  G=0 ; gsb  "G/T" 

34:  if  G= 1 ; gsb  "S/D" 

35:  if  G=2 ;gsb  "HP" 

36:  1 e9*F>F[ I ] 

37: 

38:  gsb  "436A" 

39:  ell  ' CF ' (F , Y) 

40:  if  D#5;gsb  "COAX  LOSS" 

41  : 

42:  T/3+.047(100-Y)+Z}AtU 
43:  pit  F , At  1 1 

44:  "STATUS" : i f  G=0  and  L=0;gsb  "Stat-GT” 

45:  if  G=1  and  L=0;gsb  "Stat-SD" 

46:  if  G=2 ; gsb  "Stat-HP" 

47:  fmt  7 , f 5 .2 , "  dBm  " , f 8 . 3 , f5 . 0 . 2f3 . 0 ; if  G=0;wrt  .7,A,F,I,U, 
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48:  if  G= 1  or  G=2 ;  wrt  ,7,A,F,I,U 

49:  if  I>0 ; fmt  6,f8.3,f7.2,f9.2.f7.2;urt  1 6 .6  ,F  ,A1 1  ] ,  At  I  ] -At  I 
-13,. 047 ( 1 00- Y) 

50:  next  I;pbeep  800,2 
51 :  gto  "PLOT" 

52: 

53:  "436A" : f or  J=1  to  1 

54:  urt  71 3 , "A+V" ; f mt  ; red  713,A:red  713. A 

55:  if  A<0;1e-6>A 

56:  101og<A/1e-3)}A;A+T)T;3T}T 

57  :  nex  t  J ; ret 

58: 

59:  "PL0T":psc  16;gclr;csiz  1.5;cfg  2 
60:  gsb  "SCL/AX" 

61:  if  f lg2 ; gsb  "Pen" 

62:  for  K=0  to  V[ 3 3 

63:  pit  F[K]/1e9,AlKl 

64:  next  K;pen;if  flg2;gsb  "Pen" 

65:  "Y-Axis  Mks":ent  "Y-value  lCl=Qui t" ,B; if  flg13;jmp  2 
66:  pit  r5,B,-2;plt  r2,B,-3;jmp  -1 

fo:  ”?"A£1s  Mks":ent  "X-value  [ C ]=Qui t" , B ; if  flg13;jmp  2 
68:  pit  B,r3,-2;plt  B,r4,-3;jmp  -1 
69:  scl  0 , 1 0 , 0 , 1 0 ; if  flg2;gsb  "Pen" 

70:  csiz  2,1 .5,8/11 ,0;plt  4 , . 5 , 3 ; 1 b 1  "FREQUENCY  (GHz)" 

72:  csiz  2.2, 1 .5,8/1 1 , 0 ;Plt  3,9,3 
73:  if  G=0 ; lbl  "GIGA-TRONICS  1026  ",N$ 

74:  if  G=1 ; lbl  "SYSTRON-DONNER  1626  ",N$ 

75:  if  G=2; lbl  "HEWLETT-PACKARD  8673A",N$ 

76:  pit  3, 8. 3, 3; if  L= 1 ; lbl  "MAXIMUM  POWER  OUTPUT  at  " , T$ 

77:  if  L=0 ; lbl  "  POWER  OUTPUT  at  " , T$ 

78:  pit  9,9 .5 , 3 ;csi z  1 . 3 ; lbl  D$ 

79:  ell  'Read  Time' 

80:  csiz  2,1.5,8/11 ,90;plt  .5,3,3;lbl  "POWER  OUTPUT  (dBm)" 

81:  psc  16;ent  "[C]=HDCPY  1=PRT",C;if  f lg13;0>C;Psc  705;sfg  2 
;gsb  "Pen" 

82:  if  C=1;gto  "Write" 

83:  csiz  1.5;gto  60 
84: 

85:  "Write":sfg  1 ;scl  0 , 1 0 , 0 , 1 0 ; gsb  "DISP" 

86:  psc  1 6 ; i f  C=1 ;psc  705;scl  0,10,0,10 

87:  ent  "X",U;ent  "Y",V;Plt  U,V,3;ent  ”[C]=Repos  1 =PRT” , P ; if 
flg13:jmp  0 

88:  ent  "Format?  ( 1 -8) " , F , "Angle?  0=Hor  90=Vert",A 

89:  csiz  F, 1 .5,8/1 1 ,A;ent  "Label  80<Spaces" ,X$ ; pi t  U,V,3;lbl 

X$ 

90:  ent  "[C]=CHG  1=RePeat  2=Cont  3=Quit" ,R; if  f lgl 3 ; 0}R ;gto  " 
DISP 

91:  if  R=1 ; p 1 t  U,V,3:lbl  X$;Plt  10,10,3;gto  "DISP" 

92:  if  R=2 ; lbl  X$;jmP  -2 
93:  if  R=3 ;stP 

94:  "DISP" : gel r;aclr  ;psc  16;scl  0,10,0,10 
95:  pit  . 5 , 8 ; csi z  1;fxd  2 ; lbl  "X  =",X,"  Y  =",Y 
96:  pit  .5,7.5;csiz  2 ; lbl  "U  =",U,"  V  =".V 
97:  pit  . 5 , 4 ;csi z  2 : lbl  "L  Size  =",F,”  Angle  =",A 
98:  pit  .5 ,3 . 5 ; csi z  1 ; lbl  "X$  Label:";Plt  1.7, 3. 5 
99:  lbl  X$ 
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100:  if  flgljcfg  1;ret 

101 :  gto  86 

102: 

103:  "648": 

104:  data  1 00 ,99 . 7 , 98 . 8 ,99 ,98 . 6 . 97 . 9 , 97 .8 ,97 . 6 .97 . 4 , 97 . 1  ,97 . 1 
,97.2,96.2,96 

105:  data  95.8,95.3,95,94.8,92.9,91.7,92.5,93.8.92.8,93.1,92. 
2,91.6 


106:  for  J=2  to  27;read  Y[J];next  J 
107:  ret 
108:  "163’’: 

109:  data  100.1,99.2,99,99.3,98.8,98.4,97.9,97.8,97.6,97.5,97 
. 1 ,97.4,96.7 

110:  data  96.1,95.2,95.5,95,95.1,93.7,92.8,92.9,92.6,91.3,91. 
8,88.3.85.2 

111:  for  J=2  to  27 ; read  Y[J];next  J 
112:  ret 


113:  ”180' 


114:  data  99 .2 ,98 . 6 ,98 .8 ,98 .5 ,98 .2 ,97 .9 ,97 . 6 ,97 .2 .97 . 3 ,97 .2 
6.8,97.5,96.9 

115:  data  96.5,95.6,95.8,95.5,95.5,94.3,93.2,93.1,93.2,92.3 
2.4,88.6,83.4 


,9 


,9 


116:  for  J=2  to  27;read  Y[J];next  J 

117:  ret 

118: 

119:  "S/D" : if  1  =  1  and  L=0;urt  M . "H001 L0M0N0G0F0E0D0" 

120:  if  1=1  and  L=1 ;wrt  M , "H001 L0M7N0G0F0E0D0" 

121 :  wait  1 00 

122:  fmt  1 , "H" , f z5 . 0 . ”L"  . f z 1  .  0 
123:  wrt  M+.1 ,1000F,5-W 
124:  wait  200;ret 
125: 

126:  "G/T" : if  1=1  and  L=0;wrt  M,"GENFIXED  MODOFF  LEVEL". W 
127:  if  1=1  and  L=1 ;wrt  M,"GENFIXED  MODOFF  LEVEL1 5" 

128:  fmt  2,"FA",f5.0 
129:  wrt  M+ .2 , 1 000F 
130:  wait  200;ret 
131  : 

132:  "HP" : if  I=1;wrt  M , "pi" , W . "db" 

133:  fmt  3 ,  "f r" , f 1 0 .6 , "gz" 

134:  wrt  M+.3,F;wrt  M+.3.F 
135:  wait  200;ret 
1 3G  * 

137:  "CRT":psc  16:gclr;aclr  ;fxd  0 

138:  VC23- VC  1 ] }r1 0 . 15r1 0+VC 1 ]>r1 ;V[2]  +  .05r10}r2 

139:  ent  "Output  RANGE?  (dBm)  Top  [ C  3  = +20"  ,  r4 ; i f  flg13;20>r4 

140:  ent  "Output  RANGE?  (dBm)  Bottom  t C ] =-1 0" , r3 ; if  f lgl 3 ; - 1 

0}r3 


141:  "SCL/AX" :scl  r1.r2,r3,r4 

142:  VC1 3>r5;0>r6;1>r7;1>r8;5>r9 

143:  r4- r3) r 1 1 ; f xd  0 

144:  if  rl 1 <=1 0 ; 2} r9 ; .5>r8;fxd  0 

145:  if  r 1 1 <=5 ; 1 } r9 ; f xd  1 

146:  if  r 1 1 <=2 ;2>r9 ; .25>r8;fxd  2 

147:  if  r3>0  or  r4<0;ent  "Y-intercept" , r6 

148:  csiz  1.5; yax  r5 , r8 , r3 , r4 , r9 ; f xd  0 

149:  if  r10>=26;4>r12 
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150:  if  rl 0<26 ;5/r12 

151:  if  r10<=10;2>r12; .5>r7;fxd  1 

152:  if  r10<  =  1  ;  1 }r 1 2 

153:  if  r 1 0<=2 ; . 2>r7 ; f xd  1 

154:  if  r 1 0 < 1 ; . 1 } r 7 ; f xd  1 

155:  csiz  1.5;xax  r6 , r7 , Vt 1 1 , V121 , r 12 

156:  ret 

157: 

158:  "Stat-GT" :wrt  M , "SENDSTATUS" : red  M,S$ 

159:  val<S$[7 ,8]>>U;val<S$[ 15,161) >V 

160:  fmt  8 , "UNlevel  atM,f6.3 

161 :  fmt  9 , "UNlock  at”,f7.3 

162:  if  U=0 ; wr t  16. 9. F 

163:  if  V=0;urt-  16. 8, F 

164:  ret 

165: 

166:  ”Stat-SD":red  M,U 

167:  fmt  8, ell,’*  UNlevel  at",f6.3 

168:  fmt  9,c11,"  UNlock  at",f7.3 

169:  if  U=1  or  U=3;urt  701.9,N$,F 

170:  if  U=2  or  U=3;urt  701.8,N$,F 

171:  ret 

172: 

173:  "COAX  L0SS":if  F<=.3  and  D<=2  ;4F+ . 31Z ; ret 
174:  jmp  D 

175:  "24-1": 1 .33+1 . 1 1F-.0787FF+FFF4.53e-3-1 . 36e-4FA4+1 . 7 1 e-6F 
} 2 { 

176: ’ "24-2": 1 .18+1 .21F-. 1 15FF+FFF8.53e-3-3. 14e-4F~4+4 .4e-6F~5 

)Z ; ret 

177:  "6-3" : .313+ .273F- . 0 1 47FF+FFF6 ,26e-4- 1 . 53e-5F~4+2 . 07e-7F 
5>Z ; ret 

178:  "6-4"  :  .292+  .31  IF-.  0215FF+ .  001  04FFF-2 .52e-5F''4+2 . 74e-7F'5 

1Z : ret 
179: 

180:  "Stat-HP":rdb(H>}U;rdb<M)>U;if  U=0;ret 

181:  if  U=64 ;urt  16, "UNlevel  at",F 

182:  if  U=16;urt  16,"UNlocked  at",F 

183:  ret 

184: 

185:  "CF" : if  pi <=2 ; 1 00>P2 ; ret 
186:  for  J=2  to  26 

187:  if  p1>=J;J}P3;Y[J]>p4;Y[J+1 ]}P5 
188:  next  J 

189:  p4+(P1 -P3) <P5-p4) >P2 
190:  ret 
191  : 

192:  "INIT" : 

193:  UUT  Address"  :725>M 

194:  "—  UUT  s/n" : "s/n  281902">N$ 

195:  COAX  Index  (1-4)  5=None"  :5>D  ;  if  D=5 : 0 > Z 

196:  "—  Date"  : "4/1 2/83" >D$ 

197:  "-—  Temper  at  u.re"  :  "25'C"  >T$ 

198:  urt  16. D$,"  UUT  is  ",N$ 

199:  ur t  16 

200:  if  D<=2;wrt  16, "24  ft  Coax  in  use" 

201:  if  D<=4 ;urt  16, "6  ft  Coax  in  use" 

202:  if  D=5;u»rt  16, "NO  Coax  used" 
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203:  wrt  16 

204:  urt  16, "Temp  set  to  ",T$ 

205:  ret 
206: 

207:  "CLOCK": 

208:  "Set  Time": 

209:  ent  "Time?,  (hhmm.ss)" .pl 

210:  int(p1/100)}p2;int<p1-100p2)}p3;100frc(p1  )}P4 
211:  stime  p4+p3*60+p2*60~2 
212:  ret 
213: 

214:  "Read  Time": 

215:  rtime>p1 

216:  int<p1/3600>}p2;p1-p2*60~2>p3 
217:  int(p3/60)}p4;p3-60*p4>p5 

218:  fxd  0 ; P 1 1  9,9.2,3;csiz  1.2;lbl  P2," :" ,p4,"  :" ,P5 
219:  ret 
220: 

221:  "Pen": 

222:  ent  "Pen  #  CHANGE?  0=NoPEN  (1-4)  [C]-#1",P;if 

P 

223:  pen#  P;ret 


f  1  g  1 3 ;  1  > 
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Fig.  B/C2  —  Sample  data  sheet  (a)  Systron-Donner  1626 
s/n  25007-2;  leveled  power  output  at  25°  C 


Fig.  B/C2  —  Sample  data  sheet  (b)  Giga-tronics  1026 
s/n  271408;  maximum  power  output  at  0°C 
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Appendix  D 

LEVEL  CALIBRATION  TEST 


Fig.  D1  —  Level  calibration  test 


25 


O’NEILL  and  GATTIS 


LEVEL 
Language :  HPL 


CALIBRATION  TEST 

Controller:  HP~26/36 


0 
1 

2 

3 

4 

5 

6 

7 

8 
9 
10: 

1 1  : 
12: 
13: 
14: 
15: 
16: 
IE 
17: 
18: 
19: 
Q;- 
20: 
21  : 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31  : 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41  : 
42: 
43: 
44: 
45: 
46: 


"ATTENUATION  Measurement  Readout  [attenGTl": 
"Author:  J JO ,  12/14/82;  revise  2/9/83": 
"Program  reads  out  difference  of  marker  ": 

"on  8566  as  attenuator  is  stepped": 

"Flags:  1=Heading  Prt  2=gsb'BW'  3=Calculate  ; 
"Flags:  4=25videoAVE  5= ' BN' eachFREQ" : 


"8566A" : dev  "sa".718 
"2673A" : dev  "lp", 701 
"UUT" : dev  "uut" ,725 

dim  L$[961 ,N$1 151 :buf  "L".L$,3 
dim  F 1 20 1 

dim  E$ [ 20 ] ,S$[ 25 1 , D$1 1 0 1 ; acl r 

ent  "Print  ALL?  [C3=No  1=Yes",Q;if  flg13;16>P 

if  Q= 1 ;701 >P;gto  17 

ent  "ERROR  Output?  [Cl=Printer  0=D isplay" ,E ; if 

ent  "Serial  Number?  xxxxxxx" , N$ ; "s/n  "&N$}N$ 
ent  "Date?  mo/day" , D$ ; D$&"/83" } D$ 
ent  "Which  ATTEN?  tC3= 1 OdB/step  1 =1dB/step" ,Q; i 
90 IX ; - 1 0  > Y 
if  Q= 1 ; -99>X ; - 1 > Y 
fmt  ; f xd  2 

data  .1  ,2,9,18,22 

for  J=1  to  5;read  FlJl;next  J 

ent  "Enter  FREQs?  [C3=No  1=Yes",Q;if  f lg 1 3 ; 0 }Q ; 

if  Q=1 ;gsb  "ENTER" 

oni  7 , "* INTERRUPT" ; ei r  7 

aclr  ;sfg  1 

cli  7 ;clr  "sa";llo  7;10>A;urt  "sa" , "TS" ; cf g  3 
pbeep  500,1 ; uai t  2000 

for  1=1  to  N 
sfg  2,5 

urt  "sa" , "IP  TS" 

gsb  "FREQ" 

urt  "sa" , "RL  0  DM" 

urt  "sa" , "Ml  TS  TS" 

fmt  5,f .4,c, z 

urt  "sa. 5" , "CF" . FI  1 1 , "GZ" 

urt  "sa’VSP  MZ  TS  TS  TS";uait  500 

urt  "sa” , "M2  El  TS  TS  TS” 

' *MF ' >M 
uait  1000 
urt  "sa” , "M3  TS" 
for  A=0  to  X  by  Y 
gsb  "GT  Level" 


f lgl 3 ; 70 1 

f  f  1  g  1 3 ;  0  } 

5 }  N 


26 


NRL  REPORT  8755 


47:  if  f lg2 ; i f  A<=-80  and  FtIl<2:gto  "BW" 

48:  if  A<-80  and  Ftll<2;gsb  "VIDEOave" 

49:  if  f lg2 ; if  A<=-70  and  FtIl>=2;gto  "BW" 

50:  if  A<-80  and  F[I]>18;sfg  4;gsb  "VIDEOave" 

51 :  if  f lg4:gto  57 

52:  if  A<-70  and  Ftll>=2;gsb  "VIDEOave" 

53:  if  f lg2 ; i f  A<  =  -60  and  Ft  I ] > 1 2 ; gto  "BW" 

54:  if  A<-60  and  Ft  I ] > 1 2 ; gsb  "VIDEOave" 

55:  if  f lg2 ; i f  A<=-50  and  FtI3>18;gto  "BW" 

56:  if  A<-55  and  Ftll>18;gsb  "VIDEOave" 

57 :  uai t  1 000 

58:  urt  "sa’V'EI  TS  TS" 

59:  urt  "sa’V'EI  TS  TS" 

60:  '*MA' >C 

61:  urt  "sa" , "KSH  TS" 

62: 

63:  "PRINTOUT": 

64:  fmt  5,"  OUTPUT  ATTENUATION  CHECK", c12 
65:  f mt  4,"  GIGA-TRONICS  1026", c15 

66:  fmt  1,"  Freq  Nom  Level  Meas  Level  Diff" 

67:  fmt  2,"  (GHz)  <dB)  <dB>  <dB)" 

68:  if  flgljurt  E+.5,D$;urt  E+.4,N$;urt  E+.1;urt  E+.2 
69:  if  flgljcfg  1 ;urt  P+.5,D$;urt  P+.4,N$:urt  P+.1;urt  P+.2 
70:  fmt  3,f8.3,f10.1 , 2x , f 1 0 . 1 , x , f 8 . 1 

71:  if  f 1 g3  and  abs(A-C-Z)>1 ,5;urt  E+ . 3 , M/1 e9 , A ,C+Z , A-C-Z 

72:  if  flg3;urt  P+.3,M/1e9,A,C+Z,A-C-Z; jmP  3 

73:  if  abs(A-C)>1 ,5;urt  E+ .3 ,M/1 e9 , A ,C , A-C 

74:  urt  P+ . 3 , M/1 e9 , A , C , A-C 

75:  next  A;0>Z;cfg  3,4 

76:  next  I 

77:  dsp  "Finished" 

78:  fmt  7 ,/, "ATTENUATOR  Check  Complete;  Errors  >  1 .5  dB  shoun 
above";urt  E+.7 

79:  fmt  7,c14,5f8.3;urt  E+.7,"Freqs  Checked : " , Ft  1 1 . FI 21 , FI 31 , 
Ft  41  ,Ft51 

80:  if  N>5 ; f  mt  7 ,5x , 7f 8 . 3 ;ur t  E+  .  7  .Ft  6 1 . Ft  7 1 , Ft  8 1 . Ft  91 ,Ft 1 0 1 , 
Ft  1 1 ] , Ft  1 2 ] 

81:  for  J=1  to  10;pbeep  200J,1:next  J 
82 :  end 


•83:  " - Sab  rout  i  nes - 

84:  "BW" : cf g  2;sfg  3 

85:  if  f lg5;A  +  10)A>Z:gsb  "GT  Level" 

86:  urt  "sa" , "RL-40DM" 

87:  urt  "sa","M1  TS" 

88:  urt  "sa" . "SP20KZ" 

89:  urt  "sa","M2  El  TS" 

90:  urt  "sa" , "E2  TS  TS  TS" 

91  :  urt  "sa" , "El  TS  TS  TS  " 

92:  uai t  1000;cfg  5 
93:  urt  "sa","M3  TS" 

94:  gto  60 
95: 

96:  "VIDEOave": 

97:  if  f lg4 ; ur t  718, "KSG  25  HZ";jmP  2 
98:  urt  718, "KSG  10  HZ" 

99:  urt  "sa" , "TS" 

100:  ret 
101 : 
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102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111: 
1  >N ; 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121  : 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131  : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141  : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151  : 
152: 
153: 
154: 
155: 
156: 


"FREQ": 

fmt  9 , "GENFIXED  M0D0FF  LEVELO  FA", f 5.0 
urt  "uut.9",1000Fm 

ret 


"GT  Level”: 

fmt  8 , "LEVEL" , f 5 . 1 ; wr t  "uut . 8" , A ; re t 
"ENTER": 

1+I}I;ent  "Freq?  (GHz)  [Cl=Qui t" ,F[ I ] ; if  flg13;aclr 
ret 

fmt  6,f3.0,2x,f8.3,c4;wrt  1 6 . 6 , I . F[ I ] , "GHz" ; jmp  -1 
****«»***.»*.****.  Subprograms  *■*-**■**-*■*■*-**-*■***-"  • 
"•INTERRUPT" : 

if  not  bit (6,  rdsC'sa")  }R)  ;gto  +5 
if  bit< 1 ,R) ;gto  +4 

if  bit(3,R);aclr  ;gclr;urt  1 6 , "HARDWARE  BROKEN! " ;gto 

if  bit<5,R> ;aclr  ;beep;urt  16, "ILLEGAL  COMMAND!" 

stp  ;eir  7 ; iret 

eir  7 ; iret 

"END  *INTERRUPT" : 


’•MA/*MF" : 


"*MA" : "03MA">S$ ; "*MA"}E$ ; gto  +3 

"*MF" : "03MF"}S$ ; ”*MF"}E$ ; if  P1 =4 ; jmp  8 
if  not  p0;3)p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char<48+P1 >  >  SS 12,21 

ell  '*SAVE' ; if  < ' ,nL$' (63) >p0)»0 :2}p3 ; jmp  7 
utb  "sa",S$;if  p1=1  or  p1=3;red  "sa",p2;jmp  2 
rdbC’sa") }P2 ; if  P1 =2; rot(P2 ,8)+rdb("sa") >P2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ;3>p3 : jmp  3 
if  p2>1 024 ;P2-4096}p2 
ret  p2 

ell  ' *ERR ' (p3) ; ret  0 
"END  *MA/*MF": 


"*SAVE/*RECALL" : 

"•SAVE": 

if  P0 ; "•SAVE" }E$ ;cl 1  '*ERR';ret 

rem  "sa";buf  "L";wtb  "sa"  ,  "OL"  ;  tf  r  "sa","L",80 

jmp  rds("L")=80 

rem  "sa";if  nL$' <80)*1 62 ; 1 }P0 ; jmp  -3 
ret 

"•RECALL": 

if  not  P0 ; if  ' ,nL$'<1 )=31 :if  ' .nL$' (80)=162;gto  +2 
"*RECALL">E$;cll  '•ERR';ret 
rem  "sa";utb  "sa",L$,"HD" 
ret 


" .nL$" :ret  shf<num(L$[p1,p1]),p2) 
"END  •SAVE/*RECALL" : 

"END  OF  PROGRAM": 


:  I- 


+2 
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OUTPUT  ATTENUATION  CHECK  4/19/83 
GIGA-TRONICS  1026  s/p  281902 
Freq  Nom  Level  Meas  Level  Diff 


(GHz)  <dB)  <dB>  <dB) 

18.000  -90.0  -88.3  -1.7 


ATTENUATOR  Check  Complete;  Errors  >  1.5  dB  shown  above 
Freqs  Checked;  0.100  2.000  9.000  18.000  22.000 


OUTPUT  ATTENUATION 
GIGA-TRONICS  1026 
Freq  Nom  Level 
(GHz)  <dB> 

17.000  -90.0 


CHECK  4/19/83 
s/n  281902 
Meas  Level  Diff 
<dB)  <dB) 

-88.1  -1.9 


ATTENUATOR  Check  Complete;  Errors  >  1 .5  dB  shown  above 
Freqs  Checked;  17.000  17.500  18.000  18.500  19.000 


OUTPUT  ATTENUATION  CHECK  4/19/83 
GIGA-TRONICS  1026  s/n  281906 
Freq  Nom  Level  Meas  Level  Diff 
(GHz)  (dB)  (dB)  (dB) 

ATTENUATOR  Check  Complete;  Errors  >  1.5  dB  shown  above 
Freqs  Checked;  0.100  2.000  9.000  18.000  22.000 


Fig.  D2  —  Sample  data  sheet 
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SPUR  HUNT  TEST 


20  CW  Frequencies  0-23  GHz  Spectrum 


Fig.  El  —  Spurious  response  test;  harmonic  /nonharmonic  outputs 


30 


NRL  REPORT  8755 


SPURIOUS  RESPONSE  TEST 
Language:  HPL  Controller:  HP-26/36 


0 
1 

2 

3 

4 

5 

6 

7 

8 
9 
10: 
11  : 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21  : 
22: 
23: 
>Ft 


"8566A  SPUR  HUNT  PROGRAM  -  [spur*GT]": 

"Author:  JJO,  11/20/82  ;  revised  12/13/82": 

”  Program  sets  G/T  1626  Sig  Gen  to  20  freqs": 

"(picked  at  random);  then  searches  spectrum": 

"in  1  GHz  increments  for  any  outputs  >~55  dBm": 

"8566A” :dev  "sa’\718 
"2673A" :dev  "lp", 701 
"UUT" : dev  "uut",725 

dim  L$[963;buf  "L" , L$ . 3 ; acl r  :gclr 

dim  ES [ 20 3 ,S$[251 , T$ [ 30  3  ,D$[ 1 01  ,N$[ 1 01 

dim  F 1 20 ]  ;"SPUR  HUNT  <0-23  GHz  Spectrum)  "I  TS 

ent  "Date?  mo/day" ,D$;D$&"/83">D$ 

ent  "UUT  serial  number?  xxxxxx" ,N$ 

ent  "OUTPUT?  [CPHardcopy  16=CRT",P;if  flg13;701>P 

f mt  ; f xd  2 

oni  7 , INTERRUPT"  ; ei r  7 

cli  7 ; clr  "sa";urt  "sa","TS" 

ent  "CRT  On?  [Cl=Yes  1=No",Q;if  f 1 g 1 3 ; 0 } 0 

if  Q=1  ;wrt  "sa'V’KSg" 

. 1 05  >F [ 1 ] ; .581 >FC23 ;1 . 1 7 IFC  3  T ;1 .5131FC4] ; 2 . 4091F1 5  3 ; 3 . 536 
6];4.814>Ft7] 


24 :  5.791 >Ft 8] ; 6 . 869>FC 9 3 ; 8 . 075 >F [ 101 ;9. 1 82>FE 1 1 1 ;1 1 .4061F1 12 
1 ; 13.31 7>Ft 131 

25:  15.421 }F[ 141 ; 17.361 IFt 151 ; 1 9. 425  IF [ 161 ; 2 1 ,833>FC 1 7] ;23.64 
7  >F  C 18] 

26:  24.088>Ft19] ;25.792>F[20] 

27:  acl r  ;gsb  "HEADING" 

28: 

29:  for  1=1  to  20 
30:  Ft  I ] >C 

31:  "UUT  Freq" : f mt  1 , "GENFIXED  MODOFF  FA",f5.0;wrt  "uut.1",10 
00C 

32:  "UUT  Amp"  :  ur  t  "uut" , "GENFIXED  LEVEL". 0 
33:  "Title" :wrt  "sa" , "KSE" , T$ 

34:  f xd  3;dsp  "F  =",C."  GHz";wait  2000 

35:  f xd  3 : f mt  7, "1026  Set  Freq  =  ".f7.3,"  GH7M;wrt  P+.7.C 
36:  urt  "sa","A1  B4  SI" 

37: 
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38:  for  J=1  to-23 
39:  gsb  "WINDOW" 

40:  wrt  "sa","M1  TS  TS" 

41 :  wrt  "sa" , "M2  El  TS  TS" 

42:  wait  200 

43:  wrt  "sa'V'EI  TS  TS" 

44:  "R":'*MA'}|_ 

45:  wait  100 

46:  if  L>=-55 ;gsb  "BW" 

47:  if  L>=-55 ; gsb  "MEAS" 

48:  if  L>=-55 ;beep ;gsb  "PRINT" 

49:  if  L>=-55 ; gto  "NextPEAK" 

50:  if  L<-55 ;  OIK :next  J 
51  :  next  I 

52:  pbeep  200,1 ;dsP  "FINISHED" ;stP 
53: 

54:  "//////////////  Subroutines  //////////////": 
55:  "NextPEAK" : wr t  "sa","m  TS" 

56:  gsb  "WINDOW" 

57:  wrt  "sa","M2  El  TS" 

58:  wait  500 

59:  wrt  "sa'V’EI  TS" 

60:  pbeep  1000,1 

61:  if  K>=0 : wrt  "sa","KSK  TS" 

62:  if  K>=0;pbeep  500,1 :if  K=0;gto  74 
63:  if  K>=1;wrt  "sa","KSK  TS" 

64:  if  K>=1 ;pbeep  400,1 ;if  K=1 ;gto  74 
65:  if  K>=2 ; wrt  "sa","KSK  TS" 

66:  if  K>=2;pbeep  300,1 ;if  K=2;gto  74 
67:  if  K>=3;wrt  "sa","KSK  TS" 

68:  if  K>=3;pbeep  200.1; if  K=3;gto  74 
69:  if  K>=4 ; wrt  "sa","KSK  TS" 

70:  if  K>=4;pbeep  100,1 ; if  K=4;gto  74 
71:  if  K>=5 ; wrt  "sa’VKSK  TS” 

72:  if  K>=5;pbeep  80,1 : i f  K=5;gto  74 

73:  wrt  16, "More  than  5  signals  above  -55  dBm";stp 

74:  1 +KIK ; gto  "R" 

75: 
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76: 
77: 
78: 
79: 
80: 
81  : 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90; 
91  : 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 
100: 
101  : 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111: 
112: 
113: 
114: 


"MEAS": 

wrt  "sa'V’EI  TS  TS" 
w rt  "sa" , "E 1  TS  TS" 
wrt  "sa" , ”E2  TS  TS  TS" 
wait  1000 

wrt  "sa" , "SP20MZ  TS  TS" 
wrt  "sa" , "El  TS  TS” 
wrt  "sa" , "El  TS  TS" 

' *MA '  }L 
'*MF ' >F 

if  int(F/1e7)=int(Z/1e7) :-60>L 
F>Z 

ret 


"PRINT": 

F/1e9)F;if  F<.01;ret 

fnit  2 ,  f  1 2 . 6 , 5x  ,  f  8 . 2 ;  wr  t  P+.2,F,L;ret 

"HEADING": 

wrt  P,"  SPUR  HUNT  TEST  ",D$ 
wrt  P  ,  "GIGA-TRONICS  1026  s/n  "  N$ 
wrt  P," - 

wrt  P,"  Freq  (GHz)  Level  (dBm)" 

wrt  P," - 

ret 


"WINDOW": 


fmt  1 ,f .4,ct  z 

if  J=1;wrt  "sa"  ,  "FA1  OfiZ  TS  TS" 
wrt  "sa. 1" ,"FA" , J-1 ,"GZ  TS  TS" 
wrt  "sa. 1 " , "FB" , J , "GZ  TS  TS" 
wrt  "sa’\"RB  3MZ  TS  TS" 
ret 


Jjrnp  2 


"BW": 

wrt  "sa’VRB  300KZ  TS  TS  TS" 
wrt  "sa" , "El  TS  TS  El  TS  TS" 
'*MA '  }L 
ret 
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115: 
116: 
117: 
118: 
119: 
120: 
121  : 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131  : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141  : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151  : 
152: 
153: 
154: 
155: 
156: 
157: 
158: 
159: 
160: 
161  : 
162: 
163: 
164: 
165: 
166: 


11  *******  ********  Subprograms  *********•*****"  ; 
"-INTERRUPT": 

if  not  bi t <6 , rds( "sa" > }R> ; gto  +5 
if  bit( 1 ,R> :gto  +4 

if  b i t < 3 ,R> ;prt  "HARDWARE  BROKEN !"; gto  +2 

if  bit<5 ,R> ;Prt  "ILLEGAL  COMMAND!" 

stp  ;eir  7;iret 

eir  7 ;  iret 

"END  -INTERRUPT" : 

"-MA/-MF" : 

"EXT's:  dev'sa' ;  E$;  S$;  -ERR;  -SAVE": 

"-MA" : "03MA">S$ ; "-MA">E$ ; gto  +3 

”-MF":"03MF"}S$;"-MF"}E$: if  p1=4;jmp  8 
if  not  p0;3)p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char(48+P1 )>S$[2,2] 

•  c 1 1  '-SAVE' ; if  < ' .nL$' <63> }P0)=0 :2>p3 ; jmP  7 
utb  "sa",S$;if  p 1 = 1  or  p1=3;red  "sa",p2;jmp  2 
rdbC’sa" >  >P2 ;  if  pi  =2 ;  rot<P2 , 8)  +  rdb< "sa" )  >p2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ; 3>p3 ; jmp  3 
if  P2>1 024 ;P2-4096>p2 
ret  p2 

ell  '-ERR' (p3) : ret  0 
"END  -MA/-MF" : 

"-ERR": 

fxd  0;spc  1 ;aclr  ;gclr;wrt  16, "error" ,E$&str(-max<p1 , 1 ) > 
stp  ;ret 
"END  -ERR": 

"-SAVE/-RECALL": 

"-SAVE": 

if  P0 ; "-SAVE" >E$ : cl 1  '-ERR';ret 

rem  "sa";buf  "L";utb  "sa" , "OL" ; tf r  "sa","L",80 

jmp  rds< ”L" >  =80 

rem  "sa";if  '. nLS' <80)^1 62 ; 1 }p0 ; jmp  -3 
ret 

"-RECALL": 

if  not  P0 ; if  ' . nL$' ( 1 >=31 ; if  ' .nL$' <80>=162;gto  +2 
"-RECALL">E$ ;cl 1  '-ERR';ret 
rem  "sa";idtb  "sa",L$,"HD" 
ret 

"  .  nL$" :ret  shf (num(L$[p1 ,p1 1) ,p2) 

"END  -SAVE/-RECALL" : 

"END  OF  PROGRAM": 
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SPUR  HUNT  TEST  4/18/83 

GIGA-TRONICS  1026  s/n  281906 

Freq  <GHz) 

Level  (dBm) 

1026  Set  Freq 

= 

0.105  GHz 

0.105000 

0.30 

1026  Set  Freq 

0.581  GHz 

0.581000 

-0.10 

1026  Set  Freq 

= 

1.170  GHz 

1.169980 

-0.20 

1026  Set  Freq 

- 

1.513  GHz 

1 .513040 

-0.50 

1026  Set  Freq 

= 

2.409  GHz 

2.409040 

-0.40 

1026  Set  Freq 

SK 

3.536  GHz 

3.536000 

-0.90 

1026  Set  Freq 

sr 

4.814  GHz 

4.814060 

-0.50 

1026  Set  Freq 

= 

5.791  GHz 

5.790940 

-7.00 

1026  Set  Freq 

6.869  GHz 

6.869000 

-1  .80 

1026  Set  Freq 

* 

8.075  GHz 

8.074960 

-1  .60 

1026  Set  Freq 

3K 

9.182  GHz 

9.181980 

-1.60 

1026  Set  Freq 

3= 

11.406  GHz 

11.406000 

-1  .20 

1026  Set  Freq 

3K 

13.317  GHz 

13.316960 

-2.60 

1026  Set  Freq 

= 

15.421  GHz 

15.420960 

-2.20 

1026  Set  Freq 

* 

17.361  GHz 

17.361060 

-2.90 

1026  Set  Freq 

= 

19.425  GHz 

19.424960 

-1  .80 

1026  Set  Freq 

* 

21  .833  GHz 

21 .832960 

-4.50 

1026  Set  Freq 

= 

23.647  GHz 

1026  Set  Freq 

= 

24.088  GHz 

7.901620 

-54.10 

1026  Set  Freq 

25.792  GHz 

8.501620 

-53.80 

20.697860 

-49.00 

21 .212160 

-51 .90 

Fig.  E2  —  Sample  data  sheet 
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PHASE  NOISE  TEST 


20  C¥  Fraquanolaa  20  Frac^uanolaa 


HP-0566A 

UUT 

RF 

SPECTRUM 

OUT 

ANALYZER 

IEEE-488  BUS 

- T - 

I 

I 

HP-26/36 

CONTROLLER 


Fig.  FI  —  Phase  noise  test;  10  kHz  offset 
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phase:  noise  test 

Language:  HPL  Controller:  HP-26/36 


0 
1 

2 

3 

4 

5 

6 

7 

8 
9 
10: 
1 1  : 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 


'PHASE  NOISE  (10  KHz  Offset)  [OnoiseSD]": 
[Author:  J JO ,  11/18/82": 

For  SD1626  phase  noise  measured  at  an 
'offset  of  10  KHz  from  carrier  in  dBc/Hz": 


'8566A" :  dev  "sa’\718 
*2673A" :dev  "lp", 701 
'UUT" : dev  "uut” , 725 

dim  L$196] ,K$[801 ;buf  "L",L$,3 

dim  R$11 , 80 ] , D$[ 1 0 1 , N$[ 1 5 ] 

dim  E$[203 ,S$1253 ,F[503 

ent  "Date?  mo/day" , D$ ; D$&"/83">D$ 

ent  "UUT  serial  number?  2xxxxx"  ,N$ ; "s/n  2"&N$>N$ 

ent  "PRINTER?  [Cl=2673  16=CRT",P;if  flg13;701>P 


.105>F£ 1 3 ; . 581 >FC23;1 .17>FC33;1. 51 3>F  C  4  3 
1 .996>F[51 ;2.409>F[61 ; 3 . 536>  F 1 7  3 ;4.814>F[83 
5.791 >F1 9] ;6.469>FI 10] ;7.21S>F[  1 1 1 

8.075>F[ 12] ;9. 1823FI 133 ; 1 0 .8563FI 14] ; 1 1 .4063F1 153 ; 12.31  7} 
F 1 1 6  3 

21 :  13. 1593FI17  3 ; 1 4 . 983>F  E 1 8  3 ;15.545>F1 193 : 1 6 . 734 }F1 20  3  ; 1 7 .36 

1 >FI21 3 

22:  18.676IF1223 ; 1 9 . 3083F1233 ; 20 . 164IF1243 ;21 .833IF1253 

23:  fmt  ;fxd  2 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31  : 

32: 

33: 

34: 


sa 


•TS" 


oni  7, "^INTERRUPT" ;eir  7 
aclr  ;sfg  1 

cli  7;clr  "sa";llo  7;urt 
for  1=1  to  25 
FIIDC 

"UUT  F req" : f mt  9 , "01 N0H" , f z5 . 0 ; wr t 
"UUT  Amp" :urt  "uut","L5M0" 
if  1=1 ;uait  2000 
if  C<2 ;  wrt  "sa’V’LF  TS" 
if  0=2 ;  wrt  "sa"  ,  "IP  TS* 


’uut . 9" , 1 000C 


35: 

ur  t 

"sa" ,"E1  MT1  TS" 

36: 

wr  t 

"sa" , "SP  HZ  TS" 

37: 

wr  t 

"sa"," . 1MZ  TSTSTSTS" 

38: 

'  *MA 

'  >A 

39: 

'*MF 

'  >F 

40: 

wrt 

"sa" , "M3  TS" 

41  : 

wr  t 

"sa" , "1 0KZ  TS" 

42: 

wrt 

"sa" , "KSG  M3"; wait  5000 

43: 

wrt 

"sa" , "M2  KSM" ;wait  2000 

44: 

'*MA 

'  >N 
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4  5 
AG 
A7 
48 
A9 

50 

51 

52 

53 

5  A 
[C] 
55: 
56: 
57: 
58: 
59: 
60: 
61  : 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71  : 
72: 
73: 
74: 
75: 
76: 
77: 
78: 
79: 
80: 
81  : 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90: 
91  : 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 


fmt  4,"  SYSTRON-DONNER  1 626" . cl 5 ,2x , cl  0 

fmt  3,"  PHASE  NOISE  at  10  KHz  OFFSET  from  CARRIER",/ 

fmt  1,"  Freq  Carrier  lOKHz  Oset  Phase  Noise" 

fmt  2,"  (GHz)  (dBm)  (dBm/Hz)  (dBc/Hz)" 

if  flgljurt  P+  .4  ,N$,D$;uirt  P+.3 

if  flgljcfg  1 ;urt  P+.1;urt  P+.2 

fmt  3 ,  f  8 . 3  ,  f  8 . 1 , 3x . f 8 . 1 ,4x,f8.1 

urt  P+.3,F/1e9,A,N.N-A 

next  I 

if  P=16;dsp  "Set  Printer  Paper  /  Press  PRINTER  [RESET]  / 
"  ;stp 

if  P=16 ; ad amp  "lp" 
dsp  "Finished" ; stp 

"*«*************-*****  Subprograms  ********************"• 
"•INTERRUPT" : 

if  not  bi t (6 , rds( "sa") }R) ; gto  +5 
if  bit( 1 ,R) ;gto  +4 

if  bit(3,R) ;aclr  ;gclr;urt  16, "HARDWARE  BROKEN !";gto  +2 

if  bit(5,R) ;aclr  ;beeP;urt  16, "ILLEGAL  COMMAND!" 

stp  ; eir  7 ; i ret 

ei r  7 ; i ret 

"END  •INTERRUPT": 

"*MA/*MF" : 

"*MA" : "03MA" >S$ ; "•MA"}E$ ; gto  +3 

"•MF" : "03MF">S$ ; "•MF"}E$ ; if  P1=4;jmP  8 
if  not  p0;3}p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char (48+pl ) >S$[2 ,2] 

ell  '•SAVE' ; if  ( ' . nL$' (63) }P0 )=0 ; 2>p3 ; jmp  7 
utb  "sa",S$;if  p 1 = 1  or  p1=3;red  ”sa",p2;jmp  2 
rdbC’sa") }p2 ; if  pi =2 ; rot (P2 . 8)+rdb("sa" ) }P2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ; 3>p3 ; jmp  3 
if  p2> 1 024 ; P2-4096>p2 

ret  p2 

ell  '•ERR' (p3) ; ret  0 
"END  •MA/*MF" : 

"•SAVE/*RECALL" : 

"•SAVE": 

if  p0;”*SAVE"}E$:cll  '•ERR'iret 

rem  "sa";bu.f  "L";utb  "sa"  ,  "OL"  ;  tf  r  "sa","L",80 

jmp  rds("L")=80 

rem  "sa";if  ' . nL$' <80)#1 62 : 1 >p0 ; jmp  -3 
ret 

"•RECALL": 

if  not  p0  ;  if  '  . nL$ ' ( 1 ) =31 : i f  '  .nL$' (80)  =  162 ;gto  +2 
"•RECALL" >E$ ; cl  1  '•ERR';ret 
rem  "sa";utb  "sa".L$,"HD" 
ret 

".nl  r:rpt  -^hf  (nomll  $rn1  ,o1  1 )  . 

"END  *SAVE/*RECALL" : 

"END  OF  PROGRAM": 
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GIGA-TRONICS  1026  s/n  281902  4/18/83 


PHASE 

NOISE  at  10 

KHz  OFFSET 

from  CARRIER 

Freq 

Carrier 

lOKHz  Oset 

Phase  Noise 

(GHz) 

(dBm) 

(dBm/Hz ) 

<dBc/Hz) 

0.105 

-0.1 

-74.5 

-74.4 

0.581 

0.0 

-75.2 

-75.2 

1.170 

-0.1 

-75.6 

-75.5 

1 .513 

0.1 

-75.4 

-75.5 

1.996 

-0.2 

-77.5 

-77.3 

2.409 

-0.4 

-79.9 

-79.5 

3.536 

-1.0 

-78.8 

-77.8 

4.814 

-0.6 

-79.5 

-78.9 

5.791 

-2.6 

-78.6 

-76.0 

6.469 

-3.0 

-79.2 

-76.2 

7,219 

-2.4 

-81.7 

-79.3 

8.075 

-1 .8 

-76.8 

-75.0 

9.182 

-1 .9 

-76.9 

-75.0 

10.856 

-1 .6 

-77.0 

-75.4 

11.406 

-1.1 

-77.8 

-76.7 

12.317 

-1 .8 

-76.0 

-74.2 

13.159 

-2.2 

-77.1 

-74.9 

14.983 

-2.1 

-78.1 

-76.0 

15.545 

-1 .5 

-77.4 

-75.9 

16.734 

-2.9 

-71 .5 

-68.6 

17.361 

-2.1 

-66.1 

-64.0 

18.676 

-2.6 

-77.5 

-74.9 

19.308 

-2.2 

-79.0 

-76.8 

20.164 

-3.8 

-77.2 

-73.4 

21 .833 

-5.3 

-79.4 

-74.1 

Fig.  F2  —  Sample  data  sheet 
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ON/OFF  RATIO  TEST 


SQUARE  WAVE  Modulated 
20  CW  Frequencies 


SPAN  -  0  Hz 
20  Frequenolee 


HP-8566A 

(JUT 

RF 

SPECTRUM 

OUT 

ANALYZER 

IEEE-488  BUS 

- T - 

t 

l 

HP-26/36 

CONTROLLER 


Fig.  G1  —  On/off  ratio  test;  pulse  or  square  wave  modulation 


40 


NRL  REPORT  8755 


ON/OFF  RATIO  TEST 
Language:  HPL  Controller:  HP-26/36 


"PULSE  MODULATION  ON/OFF  RATIO  -  [on/of fGTl" : 

"Author:  JJO,  7/16/82": 

||  Program  sets  G/T  1 02G  Sig  Gen  to  20  f  reqs" : 

^applies  SQ  WAVE  modulation  at  0  dBm;  uses  spectrum": 
"analyzer  to  measure  ratio": 


"8566A" : dev  "sa",718 
"2673A” :dev  "1P",701  ; 7 0 1 > P 

"7470A":dev  "gp",705;psc  705;dim  H121 ,H$150] ,X$f301 , Y$C 30 ] 
dim  L9> [  96  ] ,  K$ [  80  ] ;  buf  "L" , L$ , 3 ; acl r  ;gclr 
10:  dim  R$[ 1 ,80] ,E$1201 ,S$125] ,T$[30] ,D$[ 10] ,N$[ 10] 

11:  dim  F120] ,L120,0:6],M[20,0:6] ; "PULSE  MOD  On/Off  Ratio 
">T$ 

12: 

13:  ent  "Date?  mo/day" ,D$:D$&"/82"}D$ 

14:  ent  "UUT  serial  number?  27xxxx" ,N$ ; "27"&N$}N$ 

15:  "Printer": 16>P 
16:  fmt  ;fxd  2 

17:  oni  7 ,"* INTERRUPT" ;eir  7 

18:  cli  7 ;clr  "sa";llo  7;urt  "sa","TS" 

19:  .241 >FE 1 1 ; 1 . 1 77>FE2] ; 1 .8131FC31 ;2.209>F[4] ;4.814>FC5] 

20:  6.869 JFt 6] ;9 . 182 >Ft 71 ;  1  1 .4061F18] ; 12.317>FC9] 

21 :  15.421 >F1101 ;17 .361JFC1 1 ] ;19. 225 >F[ 121 ; 2 1 .833>FC 133 
22:  aclr  ;gsb  "HEADING" 

23: 

24:  for  ]>1  to  13 
25:  F£ I ] }C 

"HHI  £re?":fmt  1  , "GENFIXED  FA" ,f5.0 ;urt  725.1.100QC 
27:  "UUT  Amp  :ur t  725 , "LEVELO" 

28:  "UUT  Sq  Wave":urt  725,"M0DSQR  MODRATEFIXED" 

29:  Title" :urt  "sa" , "KSE" , T$&D$ 

30:  fxd  3;dsP  "F  =",C,"  GHz- 
31: 

32:  "START": if  C<2;gsb  "Luide" 

33:  if  0=2 ;gsb  "Hmde" 

34:  wait  1000 

urt  "sa" , "CF" , C , "GZ  TS" 
urt  "sa" , "SPOHZ  TS" 
ur  t 
wr  t 
ur  t 

lei  Msav’ 

beep ; dsp  "Turn  S/A  KNOB: 

";stP 

42:  rem  "sa" 

43:  '*MA' }R ; R+ T > T 
44:  gsb  "PRINT" 

45:  next  I 

46:  pbeep  200,1 ;dsP  "FINISHED 
47 :  adump  "lp" 

48:  dsp  "Hardcopy  Completed" ; stp 


35; 
36: 
37: 
38: 
39: 
40: 
41  : 


sa" , "ST20MS  TS" 
’sa","A4  B1  T4  TS" 
’sa" , "B3  M2  El 


M3" 


Markers  at  Top/Bottom  of  Sq  Wave 


[Cl  for  Hardcopy" jstp 
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49:  "//////////////  Subroutines  //////////////": 

50:  "Luiide"  :urt  "sa"  ,  "LF"  ;  ret 
51:  "Huide"  :urt  "sa”  .  "IP"  ;  ret 
52:  "PRINT": 

53:  fmt  1  ,  f 1 0 . 3 , 7x , f 8 . 2 , "  Ave  =  ",f6.2."  dBm" 

54:  if  I=13;urt  16. 1 , C,R, T/13; ret 

55:  fmt  2 , f 1 0 .3 , 7x , f 8 . 2 ; urt  16.2,C,R;ret 

56:  "HEADING": 

57:  urt  P,”  PULSE  On/Off  RATIO  TEST  ".D$ 

58:  urt  P , "GIGA-TRONICS  1026  s/n  ",N$ 

59:  urt  P," - ” 

60:  urt  P,"  Freq  (GHz)  Ratio  (dBm)" 

61  :  urt  P," - " 

62:  ret 

03:  "****»**********  Subprograms 
64:  "-INTERRUPT": 

65:  if  not  bit(6  ,  rdsC'sa”)  }R)  ;gto  +5 
66:  if  bit(1,R);gto  +4 

67:  if  bit(3,R);prt  "HARDWARE  BROKEN! " ;gto  +2 

68:  if  bit(5,R> ;prt  "ILLEGAL  COMMAND!" 

69:  stp  ;eir  7;iret 

70 :  eir  7  ;  iret 

71:  "END  -INTERRUPT": 

72:  "-MA/-MF” : 

73:  "EXT's:  dev'sa' ;  E$;  S$;  -ERR;  -SAVE": 

74: 

75:  "-MA":"03MA"}S$:"*MA"}E$;gto  +3 
76: 

77:  "-MF" : "03MF"}S$ ; "*MF"}E$ ; if  P1=4;jmP  8 

78:  if  not  p0;3>p1;gto  +3 

79:  if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 

80:  char(48+P1 )>S$[2,2J 

81:  ell  '-SAVE' ; if  ( ' .nL$' (63) >P0)=0 ;2>p3 : jmP  7 

82:  utb  "sa" ,S$ ; if  P1=1  or  P1=3;red  "sa",P2;jmp  2 

83:  rdbC’sa") }P2 ; if  P1 =2 ; rot(P2 , 8)+rdb( "sa" ) }P2 

84:  if  p1=3  or  p0#19;jmp  3 

85:  if  pi =4 ;3}p3 ; jmp  3 

86:  if  P2>1 024 ;P2-4096}p2 

87 :  ret  p2 

88:  ell  '-ERR' (P3) ; ret  0 
89:  "END  -MA/-MF" : 

90:  "-ERR": 

91:  f xd  0;spc  1 ;aclr  ;gclr;urt  1 6 ,  "error" , E$&str( -max(p1  , 
92:  stp  ;ret 
93:  "END  -ERR": 

94:  "-SAVE/-RECALL": 

95 :  "-SAVE" : 

96:  if  p0;"-SAVE"}E$;cll  '-ERR';ret 

97:  rem  "sa";buf  "L";utb  "sa" , "OL" ; tf r  "sa","L".80 

98:  jmp  rds("L")=80 

99:  rem  "sa";if  ' . nL$' (80)#1 62 ; 1 }P0 ; jmp  -3 

100:  ret 

101:  "-RECALL": 

102:  if  not  p0  ;  if  ' .nL$' ( 1 )=31 : if  '  .nL$' (80)  =  162;gto  +2 
103:  "*RECALL"/E$ ;cl 1  '-ERR';ret 
104:  rem  "sa";utb  "sa",L$,"HD" 

1 05 \  T0t 

106:  ".nL$":ret  shf (num(L$tp1 ,p1 ] ) ,p2) 

107:  "END  -SAVF/-RECALI." : 

108:  "END  OF  PROGRAM": 
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PULSE  On/Off  RATIO  TEST  4/19/83 
GIGA-TRONICS  1026  s/n  281906 


Freq  (GHz) 

Ratio  (dBm) 

0.241 

86.20 

1.177 

61  .00 

1 .813 

56.20 

2.209 

70.10 

3.773 

62.70 

4.814 

63.10 

5.502 

81 .50 

6.669 

54.50 

7.643 

79.40 

8.813 

46.60 

9.182 

47.60 

10.482 

46.70 

11.406 

46.70 

12.317 

37.90 

13.228 

41 .50 

14.944 

40.30 

15.421 

39.60 

16.169 

35.80 

17.258 

31 .80 

18.157 

42.80 

19.225 

49.80 

20.643 

45.80 

21 .833 

-62.90  Ave 

PULSE  On/Off  RATIO  TEST  4/19/83 

GIGA-TRONICS  1026 

s/n  281902 

Freq  (GHz) 

Ratio  (dBm) 

0.241 

61  .40 

1.177 

62.60 

1 .813 

56.60 

2.209 

69.60 

3.773 

62.80 

4.814 

62.30 

5.502 

64.40 

6.669 

55.80 

7.643 

57.00 

8.813 

46.90 

9.182 

47.30 

10.482 

47.20 

11.406 

47.80 

12.317 

37.30 

13.228 

40.00 

14.944 

38.60 

15.421 

37.50 

16.169 

35.20 

17.258 

30.60 

18.157 

40.30 

19.225 

41 .80 

20.643 

40.20 

21 .833 

37.90  Ave  = 

53.50  dBm 


48.74  dBm 


Fig.  G2  —  Sample  data  sheet 
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Appendix  H 


SWEEP  OUTPUT  TEST 


<1)  Conrtoot  A-P  /  Mooouro  RF  Out  during  Manual  Swoop 

<2>  Connoot  B-P  /  Mooouro  Ramp  Out  during  Manual  Swoop 

O)  Connoot  A-P  /  Moaouro  RF  Out  at  20  CW  Stopo  aorooo  Swoop  Rango 


Fig.  HI  —  Sweep  output  test 
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SNEER  OUTPUT  TEST 
Language:  HPL  Controller:  HP-26/36 


0:  "A/D  CONVERSION  of  SWEEP  OUTPUT  -  (sweepSD)": 

2:  "Revision  4:  JJO  1/18/83": 

3:  dim  L$[ 60 1 . N$[ 1 5 1 , DSC  1 0 3 , X$[ 80 1 , U$[ 1 5 3 , S$[ 30 1 
4:  "SYSTRON-DONNER  1 626">L$ ; acl r 
5:  getk  "sweepKEYS" 

6:  gsb  "B/D" 

7:  ent  "DRAW  Hdcpy  Diagram?  [Cl=No  1=Yes",Q;if  flg13;0>Q 
8:  if  Q= 1 ;Psc  705;gsb  "BDh" 

9:  aclr  ;gclr;gsb  "INIT" 

10:  dsp  "Press  k3  INIT  for  Change  /  [ C 1 =N0change" ; beep ; stp 

12:  ent  "SET  Clock?  [Cl  =  No  1=Yes",Q;if  f 1 g 1 3 ; 0 > Q 
13:  if  Q=1 ;cl 1  'CLOCK' 

14:  gon 

15:  ent  "START  Freq?  (GHz)" , rl , "STOP  Freq?  <GHz)",r2 
1G:  dsp  "Set  IdB/step  Atten  }  5  dB";beep;stp 
17:  ent  "#  Points?  [ Cl=1 000" , N : if  f lgl 3 ; 1 000>N 
18:  dim  A10:1 ,N1 

19:  ent  "DATA?  IC]=Level  1=RamP".D;if  f 1 g 1 3 ; 0 > D 

20:  if  D=0; beep: dsp  "A/D  Cable  -)  DETECTOR  Out  [C3";stp 

21:  if  D=1;beep;dsp  "A/D  Cable  ->  Sweep  Out  tCl";stp 

22:  dsp  "START  Sweep  &  [Cl  at  Same  Time";stp 

23:  for  J=1  to  N 

24:  wrt  710, "H8AJ" 

25:  -ior(shf (rdb<710) ,-8) , rdb< 71 0) ) >AE D , J 1 ;dsP  J,A[D,J1 
26:  if  J>1 ; if  abs< At D , J] ) <abs(A[ D , J-1 1 /I  0) ;pbeep  500,1 
27:  next  J ; i f  D=0;gto  19 
28: 

29:  "PLOT" :psc  16:gclr;aclr  ;1000}X;csiz  1.2 

30:  sc 1  -1 ,11 ,-100,1 025 ; f xd  0;xax  0 , 1 0/< r2-r 1 ) , 0 , 1 0 ;yax  0,50, 

0,1000,5 

31 :  for  J=1  to  N 

32:  if  J> 1 00 : if  At  1 . J 1>A[ 1 , J- 1 0 1  ;pen;gto  35 

33:  pit  -At  1 ,J]*1000/100/X,A[0,J] ;dsP  J,At1 ,J1 , At  0 , J ] 

34:  next  J 

35:  dsp  J.AM  ,J],At1  ,J-11;abs(At1  .J-1D3-X 
3G  * 

37:  "X-Axis  Freq": 

38:  for  J=0  to  10  by  10/<r2-r1> 

39:  pit  J- . 2 , -30 ,3 ; f xd  0  ;  lbl  rl +<r2~r1 > J/1 0 

40:  next  J 

41  :  "Y-Axis  Mks": 

42:  dsp  "A/D  Cable  }>  Det  Out";stp 
43:  gsb  "Pen" 

44:  ent  "dB  Label?  tC l=Qui t" . Z ; if  flg13;gto  52 


45 


O’NEILL  and  GATTIS 


45 

46 

47 

48 

49 

50 

51 

52 

53 


gsb  "Amp" 

for  J=0  to  10  by  .5 
gsb  "S/D" 

wait  200;gsb  "A/D" 
pit  J,B 
next  J;pen 

pit  1  0  ,  B  .  3  : 1  b  1  Z ;gto  44 
gsb  "Pen" 

Pit  1 0 .8 ,300 ,3 ; csi z  2, 1  .5,8/1 1 ,90 ; lbl  "OUTPUT  LEVEL  (dBm) 


54 : 

55 :  scl  0,10,0,10 

56:  csi z  2,1 .5,8/11 ,0;Plt  3.5,.2,3;lbl  "FREQUENCY  (GHz)" 

57:  csi z  2.2,1 .5,8/11 ,0;Plt  3,9,3;lbl  L$."  !\N$ 

58:  pit  3. 5, 8. 3, 3; lbl  "SWEPT  OUTPUT  RESPONSE" 

59:  csi z  2, 1 .5,8/1 1 ,0 ;Plt  3.5,7 .5.3; lbl  S$ 

60:  csi z  1 .3,1 .5,8/1 1 ,0;Plt  9,9.5,3;lbl  D$ 

61:  ell  'Read  Time' 

62:  csi z  2,1.5 ,8/1 1 ,90 ;P1 t  .2,3,3; lbl  "DETECTED  A/D  OUTPUT  " 
63:  psc  1 6 ; ent  "1C1=HDCPY  1=PRT",C;if  f lgl 3 ; 0)C ;Psc  705;gsb  " 
Pen" 

64  :  csi z  1 .5 ; gto  30 
65: 

66:  "Write” :sfg  1 ;Psc  705;scl  0 . 1 0 , 0 . 1 0 ; gsb  "DISP" 

67:  ent  "X",U;ent  "Y",V;Plt  U,V,3;ent  "[Cl=RePos  1=PRT",P;if 
flg13;jmp  0 

68:  ent  "Format?  ( 1 -8)" . F  ,  "Angle?  0  =  Hor  90=Vert”,A 

69:  csiz  F,1 .5,8/11 ,A;ent  "Label  80<SPaces" , X$ ; P 1 t  U , V ,3 ; lbl 

x$ 

70:  ent  ”[C1=CHG  1=RePeat  2=Cont  3=Quit",R;if  f lgl 3  ;  0>R ; gto  " 
DISP" 

71:  if  R=1 ; P 1 t  U,V,3;lbl  X$;Plt  10,10,3:gto  "DISP" 

72:  if  R =2 ; lbl  X$;jmp  -2 
73:  if  R=3;stp 

74:  "DISP”:psc  16;gclr;scl  0,10,0.10 
75:  1>r5>r7>r9;2}r6>r8 

76:  pit  . 5 , 8 ; csi z  r5:fxd  2 ; lbl  "X  =",X,"  Y  =".Y 

77:  pit  . 5,7 .5;csiz  r6;lbl  "U  =",U,"  V  =",V 

78:  pit  . 5 , 4 ; csi z  r8 ; lbl  "L  Size  =",F,"  Angle  =",A 

79:  pit  . 5 , 3 . 5 ; csi z  1 ; lbl  "X$  Label:";Plt  1.7, 3. 5 

80:  wrt  724 , "tx" , X$ , char (3) ;pen 

81:  if  flg1;cfg  1;ret 

82:  gto  67 

83: 

84:  "A/D” : wrt  710,"H8AJ" 

85:  -ior(shf(rdb(710>,-8>, rdb(7 1 0) ) >B 

86:  ret 

87: 

88:  "B/D" :psc  16;gclr;aclr 

89:  "BDh" :scl  0 , 1 0 , 0 , 1 0  ;  if  Q=1 ;gsb  "Pen" 

90:  pit  ,5,7,3;iplt  2,0,2;iplt  0,1.5;iplt  -2,0;iplt  0,-1. 5, -3 
91:  pit  4,7,3;iplt  1,0,2;iplt  0,1  ;  i  p 1 1  — 1  ,0;iplt  0,-1, -3 
92:  pit  7 , 5 . 25 , 3 ; ipl t  1.5,0,2;iplt  0,1 ; i p 1 t  -t.5,0;iplt  0,-1, 
-3 

93:  pit  1 .2,7.8, 3;csiz  2;lbl  "UUT" 

94:  pit  1 ,7.4,3;csiz  1 ; lbl  "S/D-1626" 

95:  pit  2.5,7 .5,3: ipl t  1 .5.0.2 

96:  pit  1.75.7.3:iplt  0 , -  1 . 5 .2 ; ip  1 1  .5.0 
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.5,0 

-1,0;  iplt  0 , 


.5 


97:  pit  5, 7. 5, 3; iplt  ,25,0,2:iPlt  0,-1 .5: iplt 
98:  pit  2 .25 , 5 .25 ,3 ; ipl t  1 ,0.2: iplt  0,.5;iPlt 
99:  pit  3.25,5.5,3: iplt  2. 5, 0,2 
100:  pit  6,5.75.3; iplt  1,0,2 
101 :  pit  5.9,5.25,3; iplt  0,1,2 
102:  pit  2 .6 , 7 .55 . 3 ;csi  z  1  ;  lbl  "SWEEP" 

103:  pit  2 . 7 , 7 . 35 , 3 ;csi z  1  ;  lbl  "OUT" 

104:  pit  3.7 ,7 .55,3; lbl  "IN" 

105:  pit  5.1 , 7 . 55 ,3 ; lbl  "OUT" 

106:  pit  1  .8, 6.-8, 3;  lbl  "RF" 

107:  pit  1 .8, 6. 6, 3: lbl  "OUT" 

108:  pit  2.5.55,3; lbl  "IN" 

109:  pit  3.3,5.55,3; lbl  "OUT" 

110:  pit  2 ,9 ,3 ; csi z  2 ;  lbl  "SWEEP  OUTPUT  TEST  SET-UP" 

111:  pit  4.3,7.6,3;csiz  t .3 ; lbl  "POT" 

112:  pit  4.1 ,7.25, 3;csiz  1 .2 ; lbl  "SET  0.9" 

113:  pit  2. 6, 5. 4, 3; lbl  "DET" 

114:  pit  7.5,5.8,3;lbl  "A/D" 

115:  pit  7 .3, 5. 5, 3; lbl  "CONVERTER" 

116:  pit  6. 3, 5. 8, 3; lbl  "Ch  4" 

117:  pit  1,4,3;csiz  2 ; 1 b 1  "First  make  RF  OUTPUT  ran  then  SWEE 
P  OUT  run" 

118:  pit  1  ,3.5,3; lbl 
sweep" 

119:  psc  1 6 ; ret 
120: 

121  : 

122: 

123: 

124: 

125: 

126: 

127: 

128: 

129: 

130: 

131  : 


'Use  enough  data  points  to  cover  time  of 


"S/D" : if  J=0;wrt  M,"O1N0" 
fmt  1  ,  "H”  ,  f  z3 . 0 

wrt  M+.1 ,10<r1+(r2-r1)J/10) ;ret 
"Amp" : f mt  9,"L" ,f 1 .0 ;wrt  H+.9,5~Z;ret 


1  .0  KHz"lS$ 


INIT" : 

-  UUT  Address" : 7251M 

—  UUT  s/n" : "s/n  24011-2">N$ 

-  UUT  Sweep  Funtion" :""}U$ 

—  UUT  Step  Size" :"Step  Rate 
—  -  Date" : " 1 /1 8/83") D$ 

132:  wrt  16, D$,"  UUT  is  ",N$ 

133:  wrt  16 

wrt  16, U$,"  ",S$ 

ret 

"CLOCK": 

"Set  Time": 

138:  ent  "Time?  (hhmm.ss)" ,p1 

139:  int<p1/100)}p2;int<p1-100p2)>p3;100frc<p1)}p4 

stime  p4+p3*60+p2*60"2 
ret 

MRead  Time”: 
r t ime}p1 

int<P1 /3G00) }p2 ;p1 -p2*60~2>p3 
int (p3/G0) }pA ;p3-60*p4}p5 

fxd  0  ;  p  1 1  9,9.2f3;csiz  1.3;  lbl  p2 « ” : ”  ,p4 ’  tp5 
ret 

MPen" : 

Pen  #  CHANGE?  0=NoPEN  (1-4)  [CWV.Pjif  flg13:1> 


134: 

135: 

136: 

137: 


140: 
141  : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 


149:  ent 
P 

150:  pen#  P;ret 
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1000 


750 


2/10/83 

SYSTRON-DONNER  1626  s/n  25008-2  13‘  4B| 

SWEPT  OUTPUT  RESPONSE 
Step  Rato  ■  100  Hz 


o  i  z 


FREQUENCY  CGHz) 

(a)  Step  rate  —  100  Hz 


1000  _ 


500 


250 


SYSTRON-DONNER  1626  s/n  25008-2 
SWEPT  OUTPUT  RESPONSE 
Step  Rate  =  1 .0  kHz 


2/10/8; 
12i  3' 


i-«=v  0 


0  J _ , _ _ _ , _ , _ , _ , _ , _ _ 

23456799  10 

FREQUENCY  CGHz) 

(b)  Step  rate  —  1 .0  kHz 

Fig.  H2  —  Swept  output  response;  Systron-Donner  1626  s/n  25008-2 
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1000 


TSD 


Q 

a  5W 

N 

c 


(J 

LU 


g  23° 


SYSTR0N-D0NNER  1626  s/n  25008-2 
SWEPT  OUTPUT  RESPONSE 
Step  Rate  =  1 .0  kHz 


Z/10/B3 
13.  34.  33 


,  HLj'.'  '  -  v  ■■  L>f  1  d 


13  14  IS  ]fr 

FREQUENCY  <GHz> 


(c)  Step  rate  —  1 .0  kHz 


(d)  Step  rate  —  1 .0  kHz 

Fig.  H2  —  Swept  output  response;  Systron-Donner  1626  s/n  25008-2 
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Appendix  I 

CENTER  FREQUENCY  PULLING  TEST 


Pulse  Modi  PW  10  umo  /  PRF  5  KHz 

100  MHz  CV  Frequency  Step*  100  MHz  Frequenoy  Step* 


HP-8566A 

UUT 

RF 

SPECTRUM 

OUT 

i 

ANALYZER 

L_ . . IEEE-480  _BUS 

"**i 

i 

_ _ i _ 

HP-26/36 

CONTROLLER 

Fig.  II  —  Carrier  frequency  pulling  test;  caused  by  pulse  modulation 
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CENTER  FREQUENCY  PULLING  TEST 
Language :  HPL  Controller:  HP-26/36 


0: 

1  : 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11  : 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21 : 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
•31  : 


"FREQUENCY  PULL  TEST  -  [pullGT]": 

"Author:  JJO  11/1/82  Revision  2": 

"  Program  steps  G/T  1026  Sig  Gen  in  100  MHz  : 

"steps;  modulates  with  10  usee  pulse  at  a  : 

"10  KHz  PRF.  8566  is  tuned  to  center  freq^: 
"displacement  of  peak  under  modulation  is  ": 

"measured  and  recorded.": 

"8566A" :dev  "sa",718 
"UUT" : dev  "uut”,725 
"2673A" :dev  "lp" ,701 ; 70 1 >P 
dim  H$ 1501, X$ 1301, Y$1 301 

ent  "START  Freq?  <GHz>  [Cl= . 1" , rl ; if  f 1 g 1 3 ; . 1 > r 1 

ent  "STOP  Freq?  (GHz)  [Cl=23 .6" , r2 ; if  f lgl 3 ;23 .6> r2 

ent  "#  STEPS?  [ Cl =235" , r3 ; if  flg13;2351r3 

dim  Ft r3+1 1 ,C[ r3+1 1 ,E1 r3+1 1 

dim  L$[961 ,K$[801 ;buf  "L" ,L$ , 3 ;acl r  ;gclr 

dim  R$[ 1 ,801 ,E$120 1 ,S$[251 , T$[30 1 ,D$[ 1 0 1 , N$[ 1 0 1 

dsp  "Set  PH  }  lOusec;  PRF  }  5k  /  [Cl";pbeep  500,1 ;stp 

ent  "Date?  mo/day" , D$ ; D$&"/83" )D$ 

ent  "UUT  serial  number?  xxxxxx",N$ 

ent  "PRINTER?  [CLInternal  1  =2673A"  ,P  ;  if  flg13;16>P 

if  P=1 ; 70 1 >P 

fmt  ;fxd  2 

oni  7  ,  "* INTERRUPT” ;eir  7 
gsb  "HEADING" 

cli  7;clr  "sa";wrt  "sa","TS" 
wrt  "sa" , "IP" 
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32:  for  1=0  to  r3 

33:  r1+(r2-r1 )I/r3>C[I+1 ] 

?000Cn>1  ]req":fmt  VGENFIXED  MODPULSE  FA",f5.0;wrt  " 

35:  "UUT  Amp" : ur t  "uut"  ,"LEVEI  0" 

"UUT  Mod":fmt  2 , "MODRATEVAR  PWIDTHVAR" ;urt  "uut. 2" 
fxd  3 ;dsp  "F  =",CtI+1],"  GHz";wait  500 
wrt  sa  , "CF" , 1 OOOCt 1+1 ] , "MZ" 
wrt  "sa"  ,  ”SP . 5MZ" 
if  1=0 ;uai t  1000 
wrt  "sa","A2  SI" 
wait  1000 
wrt  7 18, "M2  TS" 
wait  200 

sa" , "M3  TS" 


uut .  1 


3B: 

37: 

38: 

39: 

40: 

41  : 

42: 

43: 

44: 

45: 

4G : 

47: 

48: 

49: 

50: 

51 : 

52: 

53: 


wrt 

wait  200 

wrt  "sa" , "El  TS" 
wait  1000 
'*MF' >Ft 1+1 ] 

Ft  1+1 3/1 OOOCt 1+1 3/1 eS  >E  1 1+1 ] }X 
fmt  3,f7.3,5x,e10.2,5x,e10.2 
wrt  16. 3, Cf 1+1 ] , Ft  1  +  1 3  ,X 

]  Ft  1  +  1  *]#X6;  ^  abs<X)>1e_6  and  absCFt  1  +  1  ]  )>3e4  ;wrt  P+.3,CtI  +  1 

54:  if  abs(X)>1e-6  and  abs<Ft 1+1 ] ) >3e4 ; N+1 >N 
wrt  "sa" , "Ml  A1  SI" 
next  I 

wrt  "sa" , "IP" 
for  1=0  to  r3 

,n  ifc  and  E[I+n>r4;EtI  +  13>r4;CtI+1]>r5 

+?i>^7  E  I+1]<0  and  abs<EtI+1])>Y;abs<EtI+1])>Y;E[I+1]}r6;CtI 

61 :  next  I 

fmt  9,/, "Max  +0ffset  ",e10.2,"  at  ",f7.3 
fmt  8, "Max  -Offset  ",e10.2,"  at  ",f7.3 
fmt  7, "No.  Freqs  over  Spec  ",f5.0 
wrt  P+.9,r4,r5;wrt  P+ . 8 , r6 , r 7 ; wrt  P+.7.N 
pbeep  200,1 ;dsP  "FINISHED" ; stp 
•'// t t J ////// /  Subroutines  //////////////": 

"HEADING": 

wrt  P,"  MODULATION  FREQUENCY  PULL  TEST  ",DS 
GIGA-TRONICS  1026  s/n  ",N$ 


55: 

56: 

57: 

58: 

59: 


62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71  : 
72: 
73: 
74: 
75: 


wrt 

wrt 

wrt 

wrt 

ret 


p," 

p,"- 

p,- 

p,"- 


Freq  (GHz)  delF  (Hz) 


delF/F” 
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76: 
77: 
78: 
79: 
80: 
81  : 
82: 
83: 
84 : 
85: 
86: 
87: 
88: 
89: 
90: 
91  : 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 
100: 
101 : 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111 : 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121  : 
122: 
123: 
124: 
125: 


" Subprograms  ***■***********"; 
"•INTERRUPT" : 

if  not  bit<6  ,  rdsC'sa")  }R)  ;gto  +5 
if  bi t ( 1 . R ) ; gto  +4 

if  bit<3,R> ;Prt  "HARDWARE  BROKEN!" :qto  +2 

if  bit<5,R);prt  "ILLEGAL  COMMAND!" 

stp  ;eir  7;iret 

eir  7;  iret 

"END  •INTERRUPT": 


"•MA/*MF" : 

"EXT's:  dev'sa' ;  E$;  S$;  •ERR;  *SAVE": 
"•MA" : "03MA" }S$ ; "*MA"}E$ ; gto  +3 


"•MF" : "03MF" >S$ ; "•MF" >E$ ; i f  P1=4;jmP  8 
if  not  p0;3/p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char<48+P1)}S$[2,2] 

c 1 1  '•SAVE'jif  (' .nL$'(63))p0)=0;2}p3; jmp  7 
utb  "sa",S$;if  p1=1  or  p1=3;red  "sa",p2;jmp  2 
rdb("sa")}P2;if  pi =2 ; rot <P2 , 8) +rdb( "sa" ) }P2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ;3}p3 ; jmp  3 
if  P2>1 024 ;P2-4096}p2 

ret  p2 

ell  '*ERR' (p3) : ret  0 
"END  *MA/*MF” : 


"•ERR": 

fxd  0;spc  1 ;aclr  ;gclr;urt  1 6 , "error" , E$&str (-max (pi , 1 > ) 
stp  ;ret 
"END  •ERR": 


"*SAVE/*RECALL" : 

"•SAVE": 

if  p0 ; "•SAVE" }E$ ; c 1 1  '•ERR'jret 
rem  "sa";baf  "L";utb  "sa" , "OL" ; tf r 
jmp  rds("L")=80 

rem  "sa":if  ' . nL$' <80 >#1 62 ; 1 >P0 ; jmp 
ret 

"•RECALL": 

if  not  pOjif  . nL$' < 1 )=31 ; if  .nL$' 
"•RECALL"}E$ ;cl 1  '•ERR'jret 
rem  "sa";utb  "sa",L$,"HD" 
ret 


"sa" , ”L" , 80 
-3 


(80 ) = 1 62 ; gto 


+2 


"  .nL$"  :ret  shf(niim(L$[p1,p1]),p2) 
"END  •SAVE/»RECALL" : 

"END  OF  PROGRAM": 
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MODULATION  FREQUENCY  PULL  TEST  4/18/83 
GIGA-TRONICS  1026  s/n  281902 


Freq  (GHz) 

delF  (Hz) 

delF  /F" 

17.100 

-3.01E  04 

-1.76E-06 

20.900 

-3.08E  04 

-1.47E-06 

21.300 

-4.76E  04 

-2.23E-06 

23.000 

-3.67E  04 

-1.60E-06 

Max  +0ffset 

6.00E-05 

at 

0.100 

Max  -Offset 

-2.63E-05 

at 

0.400 

No.  Freqs  over  Spec 

4 

MODULATION 

FREQUENCY  PULL 

TEST  .4/18/83 

GIGA-TRONICS  1026 

s/tt  281906 

Freq  (GHz) 

delF  (Hz) 

delF/F 

Max  +Of fset  1.71E-06  at  7.900 

Max  -Offset  -9.50E-05  at  0.100 

No.  Freqs  over  Spec  0 

Fig  12  —  Sample  data  sheet 
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Appendix  J 

POWER  METER  ACCURACY 


(1)  Connect  A-B  /  Mak®  INTERNAL  PM  ffl«a®ur®m®nt 
(2>  Conn®ot  A-C  /  Mak«  EXT  R®f  01  m®a®or®m®r»t 
(3)  Conn«ot  A“D  /  Mak®  EXT  R®f  02  m®c®ur®m®nt 


Fig.  J1  —  Power  meter  accuracy  test 
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POWER  METER  ACCURACY  TEST 


Language :  HPL  Controller:  HP-26/36 


0:  "EXT  POWER  METER  ACCURACY  TEST  -  (PMaccGT) " : 
1:  "Use  436A  Power  Meter:  8485  Heads  648  &  163: 
cable": 

2:  "GT-1026  is  signal  source  and  UUT" : 

3: 


low  loss  Gore 


4:  dim  At  1001 ,BT 1001 ,Ft 100], T$[301,C$[ 801 ,N[ 1001 ,K$[ 130.7 1 ,P$ 
[3  9]  C [ 0 : 20 ] 

5:  dim  M$t 101 ,S$t 15] ,D$t 1 01 , Y [ 30 1  ;"G/T  1026">M$ 

6:  aclr  ;gclr 

7:  ent  "Serial  No?  xxxxxx" ,S$ ; "s/n  "&S$}SS 
8:  ent  "Date?  mo/day" , D$ ; D$&"/83" >D$ 

9:  "436A"}P$[ 1 ] ;"436A">P$[2] ; MS > PS [ 3 T ;sfg  1 

10:  ent  "START  Freq?  <GHz)",r1 

11:  ent  "STOP  Freq?  <GHz)",r2 

12:  ent  "Freq  STEP  Size?  <GHz)",r3 

13:  ent  "Output  Level?  [C]  =  0  dBm",U;if  f lg 1 3 ; 0 >U 

14:  r1)F;gsb  "G/T" 

15:  gsb  "LVL" 

16:  ent  "PM?  0=436A/648  1=436A/163  2=UUT  t C 1 =Pr int" , Q ; i f  flgl 
3;gto  "Print" 

18*  ^ ^ I J dsp  'Attach  output  to" , P$ [ Q+1 ] j beep ;stp 

19:  for  F=r1  to  r2  by  r3 
20:  1+1 >I;F>F[I1 
21 :  gsb  "G/T" 

22:  if  Q=2;gsb  "PWR" 

23:  if  Q<= 1 ; gsb  "436A" 

24:  if  Q=0 ; gsb  "648" 

25:  if  Q= 1 ; gsb  "163" 

26:  c 1 1  ' CF ' <  F , Y ) 

27:  fmt  1  ,c4 , f 7 .3 ,5x ,c6 , f 6 .2 ,c4 
28:  if  Q=0 ; T/3+ . 047 < 1 00-Y) >AC I T ;  wrt  16.1,"F  = 

II,"  dBm" 

29:  if  Q=1 ;T/3+.047(100-Y)}B[I] ;wrt  16.1,"F  = 

11,"  dBm" 

30:  if  Q=2 ; wrt  16.1,"F  «  ",F,"UUT  =  ",NtU,"  dBm" 

31  :  01T 

32:  next  F;gsb  "END" 

33:  gto  16 

34:  "Print"  :ent  "PRINTER?  [Cl  =  Internal  1=2673A  2=7245B" ,P ; i f 

flg13;16}P;aclr 

35:  if  P=1 ; 70 1 }P 

36:  if  P=2 ; 706IP 

37:  fmt  9 , c40 , cl 5 , 5x , c8 , / 

38:  if  flg1;wrt  P+.9,"G/T  1026  Ext  Power  Meter  Accuracy  Test" 
,S$ ,D$ 

39:  fmt  5, 3x, "Generator  Output  =",f5.0,"  dBm";wrt  P+.5.U 
40:  fmt  2, 5x, "Freq",5x, "< 1 )G/T1026",4x, " <2)436/648", 4x," (3)43 
6/163",  z 

41:  fmt  6,4x,"(1)-<2)",4x,"<1)-<3)";wrt  P+.2;wrt  P+.6 
42:  fmt  3,5x,"<GHz)",4x,"Ampl  (dBm) " , 4x , "Ampl  (dBm)" ,4x ,"AmPl 
(dBm) " , z 

43:  fmt  7 ,5x , "  dB  ",5x,"  dB  ";wrt  P+.3;wrt  P+.7 


" , F , "648  =  " , At 
" ,F,"163  =  " , Bt 
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44:  fmt  4  ,  f  9 . 3 ,  f  1 1  . 2 ,  f  1  4 . 2 ,  f  1 4 . 2  ,  f  1  4 . 2  ,  f  1 1  .2 
45 :  f or  K= 1  to  I 

46:  urt  P+.4,F[K],N[K],A[K],B[K],N[KJ-A[K],NEK3-B[K] 

47 :.  next  K 

48:  ent  "Type  Comment  [C]=Return" ,C$ 

49:  if  flg13;ent  "tC]=Neu  Ran  1=Print  Again". R;if  flg13;0>R} 

I Jcfg  1 ;gto  13 

50:  if  R= 1 ; 0 > R ;gto  "Print" 

51:  urt  P,"  ",C$;gto  48 
52: 

53:  "8485" : if  F<1 ; 1 0 0 > Y 

54:  if  F>  =  1  ;  1  03 . 05-2 . 1 232F+  . 4 1 292FF-  .  037928F '3+  .0015313F''4-F"' 

5*2 .281 4e-5}Y 

55:  "  " : gto  "Retn" 

56 :  "Retn" : ret 
57: 

58:  "G/T" : if  1  =  1  ;urt  725 , "GENFIXED  M0D0FF" 

59:  uait  100 

60:  fmt  1  ,"FA",f5.0 

61  :  urt  725.1 ,1000F 

62:  uait  200;ret 

63:  "LVL” :urt  725 , "POWERINT" 

64:  fmt  2 ,  "LEVEL" , f 5 . 1 ; urt  725. 2. U 
65:  uait  200;ret 

66:  "PWR" :urt  725,"P0WEREXT  SENDPOWER" 

67:  uait  500;red  725 ,N[ I ] ;uait  300;red  725, Nt 1 3 
68:  ret 
69  * 

70:  "436A" : for  J=1  to  3 

71:  urt  713, "A+V" ; fmt  ;red  713,A;red  713, A 
72:  101og(A/1e-3)>A;A+T}T 
73:  next  J;ret 
74: 

75:  "648": 

76:  data  100,99.7,98.8,99,98.6,97.9,97.8,97.6,97.4,97.1,97.1, 
97.2,96.2,96 

77,:  data  95.8,95.3,95,94.8,92.9,91.7,92.5,93.8,92.8,93.1,92.2 
916 

78:  for  J=2  to  27;read  Y[J];next  J 
79:  rstr  "648” 

80:  ret 
81 :  "163": 

82:  data  100.1,99.2,99,99.3,98.8,98.4,97.9,97.8,97.6,97.5,97. 
1 ,97.4.96.7 

83:  data  96.1,95.2,95.5,95,95.1,93.7,92.8.92.9,92.6,91.3,91.8 
,88.3,85.2 

84:  for  J=2  to  27;read  Y[J];next  J 
85:  rstr  "163" 

86:  ret 
87:  "180": 

88:  data  99.2,98.6,98.8,98.5,98.2.97.9.97.6,97.2,97.3,97.2,96 
.8,97.5,96.9 

89:  data  96.5,95.6,95.8,95.5,95.5,94.3,93.2,93.1,93.2,92.3.92 
.4,88.6,83.4 

90:  for  J=2  to  27;read  Y[J];next  J 
91:  rstr  "180" 

92:  ret 
93 : 

94:  "CF" : if  P1 <=2 ; 1 00>P2 ; ret 
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95:  for  J=2  to  26 

96:  if  p1>=J;J}p3;Y[J]}p4;Y[J+1 ]}p5 
97  :  rip*  t  I 

98:  p4+(p1-p3) <p5-P4) }P2 
99:  ret 
100: 

101 :  "END" : for  J=1  to  10 
102:  pbecp  J100, . 3\ J 
103:  next  J;ret 
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G/T  1026  Ext  Power  Meter  Accuracy  Test 


s/n  281906  4/21/83 


Generator  Output  *  0  dBm 

Freq  (DG/T102G  <2)436/648 

(GHz)  Ampl  (dBm)  Ampl  (dBm) 


2.000 

-0.20 

-1.14 

4.000 

-0.60 

-1.48 

6.000 

-1  .20 

-1  .98 

8.000 

-1  .40 

-2.17 

10.000 

-1  .80 

-2.45 

12.000 

-2.20 

-2.75 

14.000 

-2.70 

-3.38 

16.000 

-3.10 

-3.57 

18.000 

-3.30 

-3.72 

20.000 

-3.50 

-4.00 

22.000 

-3.40 

—3 . 87 

24.000 

-3.90 

-4.09 

26.000 

-4.40 

-4.69 

(o'  Goxt  Vito 

Generator 

Output  =  "15 

dBm 

Freq 

(DG/T1026 

<2)436/648 

(GHz) 

Ampl  (dBm) 

Ampl  (dBm) 

2.000 

-15.30 

-15.65 

4.000 

-15.30 

-15.75 

6.000 

-15.50 

-16.13 

8.000 

-15.70 

-16.04 

10.000 

-16.00 

-16.18 

12.000 

-16.00 

-16.00 

14.000 

-16.40 

-16.51 

16.000 

-16.50 

-16.68 

18.000 

-16.60 

-16.58 

20.000 

-16.80 

-16.91 

22.000 

-16.30 

-16.50 

-24.000 

-16.60 

-16.60 

26.000 

-17.10 

-16.78 

18  inch  Gore  coax  used 


<3)436/163 

<1 )-<2) 

<1 )-(3) 

Ampl  (dBm) 

dB 

dB 

-1.14 

0.94 

0.94 

-1  .50 

0.88 

0.90 

-1  .99 

0.78 

0.79 

-2.17 

0.77 

0.77 

-2.46 

0.65 

0.66 

-2.75 

0.55 

0.55 

-3.40 

0.68 

0.70 

-3.54 

0.47 

0.44 

-3.71 

0.42 

0.41 

-4.03 

0.50 

0.53 

-3.88 

0.47 

0,48 

-4.02 

0.19 

0.12 

-4.51 

0.29 

0.11 

(3)436/163 

<1)-<2> 

< 1 >-<3) 

Ampl  (dBm) 

dB 

dB 

-15.66 

0.35 

0  .36 

-15.74 

0.45 

0.44 

-16.13 

0.63 

0.63 

-16.06 

0.34 

0 .36 

-16.13 

0.18 

0.13 

-16.01 

-0.00 

0.01 

-16.53 

0.11 

0.13 

-16.64 

0.18 

0.14 

-16.56 

-0.02 

-0.04 

-16.92 

0.11 

0.12 

-16.49 

0.20 

0.19 

-16.52 

0,00 

-0.08 

-16.57 

-0.32 

-0.53 

Generator 

Output  =  -1 

F  req 

<1 )G/T1026 

(GHz) 

Ampl  (dBm) 

2.000 

-22.90 

4.000 

-23.00 

6.000 

-23.00 

8.000 

-23.30 

10.000 

-23.50 

12.000 

-23.50 

14.000 

-24.00 

16.000 

-24.00 

18.000 

-24.30 

20.000 

-24.30 

22.000 

-23.90 

24.000 

-24.20 

26.000 

-24.90 

dBm 

(2)436/648 

<3)436/163 

Ampl  (dBm) 

Ampl  (dBm) 

-24.16 

-24.33 

-24.04 

-24.20 

-24.17 

-24.33 

-24.69 

-24.83 

-24.60 

-24.77 

-24.35 

-24.49 

-25.04 

-25.30 

-25.23 

-25.43 

-25.21 

-25.44 

-25.56 

-25.91 

-25.27 

-25.59 

-25.32 

-25.53 

-25.57 

-25.70 

Fig.  J2  —  Sample  data  sheet 

< 1 )-<2> 
dB 

1  .26 
1  .04 
1.17 
1 .39 
1.10 
0.85 
1  .04 
1  .23 
0.91 
1  ,26 
1  .37 
1.12 
0.67 


<1>-<3> 
dB 
1 .43 
1 .20 
1  .33 
1 .53 
1  .27 
0.99 
1  .30 
1  .43 
1  .14 
1 .61 
1  .69 
1  .33 
0.80 
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Appendix  K 

INTERNAL  PULSE  WIDTH 


Pol#»  Modi  Col.  Min.  Max  PW  /  PRF  5  KHz 


10  Ctt  Fr.qu.nol..  10  Fr#qu#nol#. 


(JUT 

.EE 

HP-8586A 

Sif 

SPECTRUM 

ANALYZER 

i 

1 

IEEE-488  BUS 


i 

_ i _ 

HP-26/38 

CONTROLLER 


Fig.  K1  —  Internal  pulse  modulation  test 


60 


NRL  REPORT  8755 


INTERNAL  PULSE  WIDTH  TEST 
Language:  HPL  Controller:  HP-26/36 


0: 

1  : 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 


"PULSE  WIDTH  (CAl/Max/Min)  -  [pwidthSDl": 

"Author:  JJO,  7/16/82;  revised  2/9/83": 

"  Program  sets  SD-1626  Sig  Gen  to  10  f reqs" : 
"measures  Pulse  Width  for  Cal,  Min,  and  Max  PULSE  ": 
"WIDTH  settings" :sfk 

"8566A" : dev  "sa”,718 
"2673A" :dev  "lp", 701 ; 701 >P 
dim  H12I ,H$150I ,X$130I ,Y$t301 
"UUT" : dev  "uut", 724 


11:  dim  LS1961 ,K$1801 ;buf  "L",L$.3;aclr  ;gclr 
12:  dim  R$[ 1 ,80 ] tE$[20 1 ,S$E251 , T$[30] ,D$I 1 01 ,N$f 1 0 ] 

13:  dim  FI20 3 , L120 , 0 :G ] , Ml 20 , 0 : 6 1 ; "PULSE  MOD  On/Off  Ratio 

•*  \  T<t 


14: 

15: 

ent  "Date?  mo/day " . D$ ; D$&"/83"> 

D$ 

16: 

ent  "UUT  serial  number?", N$ 

17: 

beep;dsp  "Set  MOD  Switch  }  INT 

PULSE  / 

1C3" ;stP 

18: 

"Printer": 1 6>P 

19: 

f mt  ; f xd  2 

20: 

21  : 

oni  7 , "* INTERRUPT" ; eir  7 

22: 

23: 

cli  7  ;cl r  "sa";wrt  "sa","TS" 

24: 

. 64>F[ 1 3 ; 1 .9431121 ;2.3>FC33 

25: 

7.3/F143 ;11 . 93F1 53 ; 1 2 . 93F1 6  3 

26: 

1 5  >  F 1 7  3 ;17.9>F183 ;18.9}F193 : 21 . 

9>Ft 103 

27: 

aclr  ; gsb  "HEADING" 

28: 

29: 

for  1=1  to  10 

30: 

FI  me 

31  : 

"UUT  F req" : f mt  1 , "H" , f z5 . 0 ; wr t 

"uut. 1" 

,1000C 

32: 

"UUT  Amp" : wrt  "uut","L0" 

33: 

"UUT  Sq  Wave" : wrt  "uut" , "N1 01  MO 

»» 

34: 

"T i tie" : wr t  "sa" , "KSE" , T$&D$ 

35: 

f xd  3;dsp  "F  =",C,"  GHz" 

36: 

*12434 
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37:  "START": if  C<2;gsb  "Lwide" 

38:  if  C>  =  2 ; gsb  "Hwide" 

39:  wait  1000 

40:  wrt  "sa" , "CF" , C , "GZ  TS" 

41:  urt  "sa" , "SP5MZ  TS" 

42:  urt  "sa","A2  TS" 

43:  wait  5000 

44:  wrt  "sa"."A3  B4  TS" 

45:  wrt  "sa","M2  TS" 

46:  wrt  "sa'\"M3" 

47:  urt  "sa’V'EK" 

48:  beepjdsp  "Turn  S/A  KNOB:  Move  Mkr  }  1st  Envelope  Null";st 

49:  rem  "sa" 

50:  '*MF' >F ; 1e6/F}W 
51:  lcl  "uut" ; f xd  3 

52:  pbeep  1000,1 ;dsP  "On  UUT:  Set  FREQ  to  ",C,"  MHz";stP 

53:  pbeep  100,.5;dsP  "On  UUT:  Set  MOD  }  Pulse;  Width  )  MIN";s 

tp 

54:  dsp  "CAL  Width  =",W,"  usee" 

55:  urt  "sa","A1  Ml" 

56:  wrt  "sa" , "SP50MZ" 

57:  wrt  "sa","A2  TS" 

58:  wait  5000 

59:  wrt  "sa","A3  B4  TS" 

60:  wrt  "sa","M2  TS" 

61:  wrt  "sa" , "M3" 

62:  wrt  "sa","EK" 

63:  beep; dsp  "Turn  S/A  KNOB:  Move  Mkr  1  1st  Envelope  Null";st 

P  ... 

64:  rem  "sa" 

65:  '*MF' IF ; Ie6/F1N 

66:  pbeep  100,.5;dsP  "On  UUT:  Set  Width  }  MAX";stP 
67:  dsp  "MIN  Width  =",N,"  usee" 

68:  wrt  "sa","A1  Ml" 

69:  urt  "sa" , "SP500KZ" 

70:  urt  "sa","A2  TS" 

71 :  wait  5000 

72:  wrt  "sa","A3  B4  TS" 

73:  wrt  "sa","M2  TS" 

74:  wrt  "sa","M3" 

75:  wrt  "sa","EK" 

76:  beep;dsp  "Turn  S/A  KNOB:  Move  Mkr  }  1st  Envelope  Null";st 
P 

77:  rem  "sa" 

78:  '*MF'}F;1e6/F>M 
79:  gsb  "PRINT" 

80:  next  I 

81:  pbeep  200,1 ;dsP  "FINISHED  [Cl  for  Hardcopy" ;stP 
82:  adump  "1P" 

83:  dsp  "Hardcopy  Completed" ;stp 

84:  "//////////////  Subroutines  //////////////": 

85:  "Lwide" : wrt  "sa" , "LF" ; ret 
86:  "Hwide" :urt  "sa" , "IP" ; ret 
87:  "PRINT": 

88:  fmt  2 , f 7 .3 ,3f 1 2 .3 
89:  wrt  1 6 .2 ,C , W , M , N : ret 
90:  "HEADING": 

91 :  urt  P," 
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92: 

93: 

94: 


wrt 

wrt 

wrt 

,..T-  4- 


96: 
<n-. 
98: 
99:  ‘ 
100: 
101 : 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111 : 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121 : 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131 : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141  : 
142: 
143: 
144: 


P.’ 

P,’ 

P,' 

p  • 

FV 


SYSTRON-DONNER 

1626  s/n  " 

.NS 

M 

If 

Freq  CAL  Width 

MAX  Width 

MIN  Width" 

If 

II  __ 

<  G!  Iz  >  <  usee  > 

7  ,ry.  \ 

\ uSco / 

/  \  •* 

9* 

Subprograms 


+2 


ur  t 
ret 

"•INTERRUPT” : 
if  not  bi t <6 , rds< "sa" > >R> : gto  +5 
if  bi t < 1 , R) ; gto  +4 

if  bit<3,R) ;Prt  "HARDWARE  BROKEN !":gto 

if  bit(5,R> ;prt  "ILLEGAL  COMMAND!" 

stp  ;eir  7;iret 

eir  7 ; iret 

"END  •INTERRUPT": 


"*MA/*MF" : 

"EXT's:  dev'sa' ;  E$;  S$;  *ERR ;  *SAVE" : 

"•MA" : "03MA" >S$ ; "*MA">E$ ; gto  +3 

"•MF" : "03MF"}S$ ; "•MF">E$ ; if  p1=4;jmp  8 
if  not  p0;3)p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char<48+p1)>S$[2,2] 

ell  '•SAVE' ; if  < ' .nL$' (63) >p0)=0 ; 2>p3 ; jmp  7 
wtb  "sa" ,S$; if  pi =1  or  P1=3;red  "sa",p2;jmp  2 
rdbC’sa")  }p2;  if  pi =2 ;  rot <p2 , 8>  +  rdb<"sa"> }p2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ;3>p3; jmp  3 
if  P2>1 024 ;p2-4096>p2 
ret  p2 

ell  '•ERR'(P3> ;ret  0 
"END  *MA/*MF" : 

"*ERRM t 

fxd  0 ;spc  1 ;aclr  ;gclr;wrt  1 6 , "error" t E$&str(~max(p1 , 1 ) ) 
stp  ;ret 
"END  •ERR": 

"*SAVE/*RECALL" : 

"•SAVE" : 

if  p0;"*SAVE"}E$;cll  '•ERR'jret 

rem  "sa";buf  "L";wtb  "sa" , "OL" ; tf r  "sa","L"t80 

jmp  rds<"L")=80 

rem  "sa";if  ' .nL$' (80)#162 : 1 >p0 ; jmp  -3 
rot 

"•RECALL": 

if  not  p0 ; if  . nL$ * ( 1 ) =31 ; i f  •nL$/ <80)-162;gto  +2 
"*RECALL"}E$  :cl 1  '*ERR';ret 
rem  "sa";wtb  "sa",L$,"HD" 
ret 

"  .nL$"  :  ret  shf  <mun<L$[p1  ,p1  I  >  ,p2> 

"END  *SAVE/*RECALL" : 

"END  OF  PROGRAM": 


f1 9855 
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INT  PULSE  WIDTH  CHECK  TEST  2 '9/83 
SYSTRON-DONNER  1626  s/p  25008-2 


Freq 

<GHz> 

CAL  Width 
<  usee) 

MAX  Width 
(usee) 

MIN  Width 

f MS  SC  ^ 

0.640 

0.985 

9.901 

0.056 

1 .940 

0.966 

9.479 

0.055 

2.300 

0.966 

9,479 

0.055 

7.300 

0.957 

9.804 

0.054 

11.900 

0.930 

9.852 

0 . 055 

12.900 

0.930 

10.010 

0  045 

15.000 

0.939 

t0. 215 

0.045 

17.900 

0.935 

9.662 

0.045 

18.900 

0.930 

9.930 

0.055 

21 .900 

0.917 

10.288 

0.052 

INT 

PULSE  WIDTH 

CHECK  TEST 

2/9/83 

SYSTRON-DONNER  1626  s/p  25003-2 


Freq 

<GHz> 

CAL  Width 
< usee) 

MAX  Width 
< usee  > 

MIN  Width 
( Msec) 

0.640 

0.952 

9  950 

0.058 

1  .940 

0.957 

9.852 

0.055 

2.300 

0.943 

9.852 

0 . 053 

7.300 

0.962 

9.852 

0 . 052 

11.9(T0 

0.976 

10.256 

0 . 05 ! 

12.900 

0.962 

1 0 . 428 

0.040 

15.000 

1 .036 

9.766 

0.040 

17.900 

1  .005 

10.152 

0.040 

18.900 

0.943 

9. 38t 

0.052 

21 .900 

0.957 

9.833 

0.051 

Fig.  K2  - 

Sample  data  sheet 

Appendix  L 

EXTERNAL  PULSE  MODULATION  TEST 


Pul.o  Mod.  3  PW»  /  4  PRFa 
PW  i  0. 1,  1.  10  uaao 
PRF«  0. 1.  1,  10.  50  KHz 


5  CW  Fraquanolaa  5  Fraquanolaa 


Fig.  LI  —  External  pulse  modulation  test;  operational  verification 
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EXTERNAL 
Language :  HPL 


O’NEILL  and  GATTIS 


PULSE  MODULATION  TEST 
Controller:  HP-26/36 


0: 

1  : 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
g!3 


"EXT  PULSE  WIDTH  <CA1/Max/Min)  -  [XpwidthGTl" : 

||Author:  JJO,  7/16/82;  revise  1/17/83": 

"Program  EXTernally  pulse  modulates  sig  gen  with": 
"CAL/MAX/MIN  pulse  widths  at  1 KHz/1 00Hz/50KHz  PRF" : 

getlc  "puidthKEYS" 

"8566A" :dev  "sa",718 
"2673A" :dev  "1P",701 ; 701 >P 

"7470A" :dev  "gP",705;psc  16;dim  Ht21 , HSC 50 1 ,X$1301 , Y$[301 
"UUT  ADDRESS” :ent  "UUT  Address?  7xx  1 Cl=25" , A ; 700+AIA : if  fl 
; 725 } A 


10:  "UUT": dev  "uut",A 

lit  "New  PWidth  Flag":sfg  1 

12: 

13:  dim  L$[961 ,K$180] ,C$[801 ;buf  "L" ,L$ , 3 ;acl r  ;gclr 
M:  dim  R$t 1 ,80 ] ,E$[20 J ,S$[251 , T$t 30 ] ,D$[ 1 0 ] ,N$[  1 0 ] 

15:  dim  F1201 ,LC20 , 0 :61 ,M[20 , 0 : 6 1 ; "EXT  Modulation  Test 
"ITS 


16: 
17: 
18: 
19: 
20: 
21  : 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31  : 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41  : 
42: 
43: 
44: 


ent  "Date?  mo/day" , D$ ; D$&"/83” >D$ 
ent  "UUT  serial  number?  xxxxxx",N$ 

"Printer": 16IP 
fmt  ;fxd  2 

oni  7 , "* INTERRUPT" ;ei r  7 

cli  7 ;clr  "sa";llo  7;wrt  "sa","TS" 

3 IF [ 1 ] ; .5931F121 ;6. 1 081F131 ; 1 4 .7265F1 4] ; 20 -982IFC53 
aclr 


for  W=1  to  3 
for  K=1  to  4 
for  1=1  to  5 
FIIDC 

"UUT  F req" : f mt  1 , "GENFIXED  FA" , f5. 0 ; wrt  "uut . 1 " , 1 000C 
"UUT  Amp" :ur t  "uut" , "LEVEL0" 

"UUT  Ext  Mod" :urt  "uut" , "M0DEXT-" 

"T i t 1 e" : ur t  "sa" , "KSE" , T$&D$ 


"START": 

if  K= 1  and  W=1;gsb 
if  K=1  and  W=2;gsb 
if  K=1  and  W=3;gsb 
if  K=2;gsb  "2" 
if  K=3 ;gsb  "3" 
if  K=4;gsb  "4" 
wait  1000 


"1  A" 
"IB" 
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45: 

ur  t 

"sa 

" . "CF" , C , 

"GZ 

TS" 

46: 

if 

H 

=  1 ; 

i  it  it 

urt  sa  t 

"SP5MZ  TS" 

47: 

if 

H 

=2; 

urt  sa  ♦ 

"SP100MZ  TS" 

48: 

if 

H 

=3; 

urt  "sa" , 

"SP 

•5MZ  TS" 

49: 

if 

f 

lgl 

;dsp  ”[C] 

to 

Proceed 

tp 

"sa" . "A  1 

50: 

if 

I 

=  1 

and  f lgl ; 

urt 

51:  dsp  "ICl  for  Next  FreqM;cfg  1;stp 
52:  urt  MsaM,Mfl3  B1" 

S3:  next  I 
54:  next  K 
55:  sfg  1  ;next  W 
56:  beep;stp 

57:  pbeep  200,1;dsp  ’’FINISHED  [Cl  for  Copy’  ;stP 
58:  aclr  ;gclr 

urt  16,"  EXTERNAL  PULSE  MODULATION  CHECK 
uj  r  t  16  ”  ” 

urt  16’,"  GIGA-TRONICS  1026  s/n  ",N$;urt  1 

62:  ent  "Comment?  [Cl=Cks  0K”,C$;if  flg13;urt  16, 
CHECKS  OK  " 

63:  if  f 1 g 1 3 ; jmp  2 
64:  urt  16,C$;urt  16;jmp  -2 
65:  dsp  "[C]  for  Hardcopy" ; stp 
66:  adump  "lp" 

67:  dsp  "Hardcopy  Completed” ;stp 

//////////////  Subroutines  //////////////: 


59 

60: 

61 


68 

69 

70 

71 

72 

73 

74 


’Luide" :urt 
’Huide" :urt 


’LF" ;  ret 


.  it  ti| 

sa  , 

'sa" , "IP" ; ret 


"1 " :gclr ;pbeep  500,1;scl  0 , 1 0 , 0 , 1 0 ;csi z  3 
pit  0,9; lbl  "Pulse  Gen:  Set  NORMAL:  PULSE;  POS; 

.  ..  pit  0 .7 ; lbl  "Pulse  Gen:  F=1KHz;  A=4.0v" 

75:  csiz  5;plt  3,5; lbl  "PH  =  1  usee" 

76:  csiz  4 ; f xd  3;Plt  3,3; lbl  "RF  =  ",C,"  GHz- 
77:  ret 

78:  " 1  A" : gc 1 r ; pbeep  100,1;scl  0 . 1 0 ,0 , 1 0 ;csi z  3 
79:  pit  0 ,9 ; lbl  "Pulse  Gen:  Set  NORMAL:  PULSE;  POS; 
80:  pit  0 , 7 ; lbl  "Pulse  Gen:  F=1KHz;  A=4.0v" 

81:  csiz  5 ; p 1 t  3.5;lbl  "PH  =  lOOnsec" 

82:  csiz  4 ; f xd  3;Plt  3,3;lbl  "RF  =  ",C,"  GHz" 

8  3  :  r  e  t  * 

84:  " 1 B" : gel r ; pbeep  1000,1;scl  0 , 1 0 , 0 , 1 0 ; csi z  3 
85:  pit  0,9; lbl  "Pulse  Gen:  Set  NORMAL;  PULSE;  POS; 
86:  pit  0 . 7 ; lbl  "Pulse  Gen:  F=1KHz;  A=4.0v" 

87:  csiz  5;Plt  3 ,5 ; lbl  "PH  =  lOusec" 

88:  csiz  4 ; f xd  3;Plt  3 , 3 ; 1 b 1  "RF  =  ",C,"  GHz" 

89:  ret 

90:  "2" : gc 1 r ;beep ; scl  0 , 1 0 ,0 , 1 0 :csi z  3 

91:  pit  0,8; lbl  "Pulse  Gen:  Set  NORMAL;  PULSE;  POS; 

92:  csiz  5;plt  3,6; lbl  "PRF  =  100  Hz" 

93:  csiz  4 ; f  xd  3;plt  3 , 3 ;  lbl  "RF  =  ",C,"  GHz" 

94:  ret 

95:  "3" :gclr ; beep ; scl  0 , 1 0 , 0 , 1 0 ; csi z  3 

96:  pit  0,8; lbl  "Pulse  Gen:  Set  NORMAL;  PULSE;  POS; 

97:  csiz  5;Plt  3,6: lbl  "PRF  =  10  KHz" 

98:  csiz  4;fxd  3;plt  3,3; lbl  "RF  =  ",C,"  GHz" 

99:  ret 


300  ;beep ;s 


D$ 

6 

ALL 


COMPL" 


COMPL" 


COMPL" 


COMPL" 

COMPL" 
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100: 
101  : 
102: 
103: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121  : 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
131  : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
f  40 : 
141  : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151  : 
152: 
153: 


"4":gclr;beep;scl  0 . 1 0 . 0 , 1 0 : cs i z  3 
pit  0 ,8 ; lbl  "Pulse  Gen:  Set  NORMAL: 
cs i z  5 ;pl t  3 ,6 ; lbl  "PRF  =  50  KHz" 
csiz  4 ; f xd  3;Plt  3 ,3 ; lbl  "RF  =  ",C," 
ret 

"**-»**■»****-»****  Subprograms  *■*-*■-**■****■■*■*■**■■* 
"•INTERRUPT" : 

if  not  b i t (6 , rds( "sa" > }R) ; g to  +5 
if  bit< 1 ,R) ;gto  +4 

if  bit<3,R);Prt  "HARDWARE  BROKEN!" :gto 
if  bit(5,R);prt  "ILLEGAL  COMMAND!" 
stp  ;eir  7;iret 
ei r  7 ; iret 
"END  •INTERRUPT": 


’•MA/*MF" : 
'EXT's:  dev'sa 


PULSE:  P0S;  COMPL" 
GHz" 


+2 


*MA" 


;  E$ ;  S$;  *ERR ;  •SAVE": 
03MA"}S$;"*MA"}E$;gto  +3 


"»MF" : "03MF” }S$ ; "*MF" >E$ ; i f  P1=4;jmP  8 
if  not  p0;3>p1;gto  +3 
if  p0>1  or  p 1 < 1  or  p1>4;jmp  9 
char(48+P1 ) >S$[2 , 21 

ell  '*SAVE' ; if  < ' . nL$' (63) }P0)=0 ;2>p3 ; jmp  7 
utb  "sa" ,S$ ; if  P1  =  1  or  P1=3;red  "sa",p2;jmp  2 
rdb<"sa")}P2;if  pi =2 ; rot <P2 , 8)+rdb<"sa") >P2 
if  p1=3  or  p0#19;jmp  3 
if  pi =4 ;3>p3 ; jmp  3 
if  p2>1 024 ;P2-40961p2 
ret  p2 

ell  '*ERR' <p3) ; ret  0 
"END  •MA/*MF" : 

"•ERR”: 

fxd  0 ;spc  1 ;aclr  ;gclr:wrt  1 6 , "error" ,E$&str <-max<p1 , 1 ) ) 
stp  ;ret 
"END  •ERR": 


'•ERR' :ret 

"sa" , "OL" ; tf r  "sa","L",80 


"*SAVE/*RECALL" : 

"•SAVE": 

if  pO ; "•SAVE" } E$ ; c 1 1 
rem  "sa";buf  "L";tjtb 
jmp  rds<"L">=80 

rem  "sa";if  ' . nL$ ' <80>#1 62 ; 1 }P0 ; jmp  -3 
ret 

"•RECALL": 

if  not  p0  ;  if  ' .nL$' < 1 >=31 ; if  .nL$' <80>  =  162;gto  +2 
"•RECALL">E$;cll  '•ERR';ret 
rem  "sa";utb  "sa",L$,"HD" 
ret 

" . nL$" : ret  shf(num<L$[p1 ,  pi ]) ,p2) 

"END  *SAVE/*RECALL" : 

"END  OF  PROGRAM": 

ent  "Comment?  [Cl=Cks  0K",C$;if  flg13;wrt  16," 
CHECKS  OK  " 

154:  if  flg13;jmp  2 
155:  urt  16,C$;mrt  16;jmp  -2 
156:  dsp  " [ C 1  for  Hardcopy" ;stp 
157:  adump  "lp" 


ALL 


68 


EXTERNAL  PULSE  MODULATION  CHECK  2/9/92 

SYSTRON-DONNER  1628  s/p  25009-2 

ALL  CHECKS  OK 

EXTERNAL  PULSE  MODULATION  CHECK  2/9/82 

SYSTRON-DONNER  1628  s/p  25008-2 

ALL  CHECKS  OK 

Fig.  L2  —  Sample  data  sheet 
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Appendix  M 


EXTERNAL  REFERENCE  LOCK 


20  CV  Fr«qu«noi®» 


Fig.  Ml  —  External  reference  lock  test 
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EXTERNAL 
Language:  HPL 


REFERENCE  LOCK 
Controller:  HP-26/36 


TEST 


0:  "EXT  REFERENCE  OPERATION  CHECK  -  [XrefSDl": 

1:  [[Author:  JJD.  7/23/82": 

2:  "Program  applies  Ext  1  MHz  derived  from  external  frequency  s 
td": 

3:  "to  1  MHz  REF  input  of  SD-1626  Sig  Gen;  Lock  and  Level  check 
ed": 

4:  "at  20  f reqs" : 

5: 

6:  "8566A" :dev  "sa",718 
7:  "2673A" :dev  "lp" ,701 ; 701 }P 
8:  dim  H121 ,H$150] ,X$[301 , Y$[301 
9:  "6054B" :dev  "ct",720 
10:  "UUT" :dev  "uut", 725 

11:  dim  L$[961 ,K$[801 ;buf  "L" ,L$ ,3 ;aclr  ;gclr 
12:  dim  R$[ 1 ,80 1 ,E$1 20 ] ,S$[ 251 . T$[30 ] , D$[ 1 0 1 ,N$[ 1 01 
13:  dim  F C 20 1 ,LC20,0:61 , Ml 20, 0:63 ; "EXT  REFERENCE  CHECK 
">T$ 

14: 

15:  gsb  [[BD" 

16:  dsp  "[Cl  uhen  ready" ; beep ;stp 
17:  ent  "Date?  mo/day" ,D$;D$&"/82"}D$ 

18:  ent  "UUT  serial  number?", N$ 

19:  "Printer" : 1 6>P 
20:  fmt  ;fxd  2 
21  : 

22:  cli  7 ; 1 lo  7 

23:  data  .  1 05 321 77 , 1 .51 3 ,2 .409 ,3.536 , 4 .814 ,5 . 791 ,6 .869 ,8 . 07 
5,9.182 

24:  data  11.406,13.317,15.421,17.361,19.425,21.833.23.647,24.08 
8,25.792 

25:  for  J=1  to  20;read  F[J];next  J 
26:  aclr  ;gclr 
27:  gsb  "1" 

28:  stp 

29:  for  1=1  to  20 
30:  FtlDCjif  1  =  1  ; aof f 

31:  "UUT  F req" : fmt  1 , "H" . f z5 . 0 ; ur t  "uut . 1" , 1 OOOC 
32:  "UUT  Amp" :  ur  t  "uut" , "L0N0M0O1 " 

33: 

34:  "START": 

35:  if  1=1 ; gsb  "2" 

36:  if  1=1 ;stp 

37:  urt  "ct" , " JGN" ; aon ; gof f 

38:  red  ”ct",A;dsp  A 

39:  if  1=1  and  A-1e6#0;dsp  "Adjust  Pulse  Freq" ;beep;stp 
40:  if  1=1  and  A-1e6#0;jmp  -3 
41:  if  I=1;aoff;gon 
42:  if  1=1 ; gsb  "3" 

43 :  if  1  =  1  ; stp 

44:  urt  "ct" , "HDN" ; red  "ct" , A ;gof f ; aon 
45:  urt  "ct" , "HDN" ; red  "ct",A 
46:  red  "uut",B 
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, f 7 .3 , "  GHz  of  "tf8.3,M  KHz";wrt 


47:  if  1=1 ;gsb  "HEADING” 

48:  abs<C-A*1e-9)}E 
49:  if  E>1e~6;fmt  2, "Error  at 
16.2,C,E*1e6 

50:  fmt  1 , cl  3 . f 7 . 3 , "  GHz" 

51:  if  B= 1  or  B=3 ;  wrt  16.1 ."UNlock  at  ",C 

52:  if  B=2  or  B=3;wrt  16. 1 ."UNlevel  at  ",C 

53:  if  B=0 ;wrt  16.1, "Status  OK  at  ",C 
54:  next  I 
55 :  aon 

56:  pbeep  200,1;dsP  "FINISHED  [Cl  for  Hardcopy" ;stp 
57:  adump  ”lp" 

58:  dsp  "Hardcopy  Completed" ;stp 


59: 
60: 
61 : 
62: 
63: 


’//////////////  Subroutines  //////////////’ 


66: 

67: 

68: 

69: 


72: 

73: 


"Lwide" :  wrt  "sa" , "LF" ; ret 
"Hwide" :  wr  t  "sa" , "IP" ; ret 
"1":gclr jpbeep  500,1;scl  0 , 1 0 , 0 , 1 0 :csi z  3 
pit  0,9; lbl  "Pulse  Gen:  Set  TRIGGER;  SQ  WAVE;  POS;  COMPL" 
64:  pit  0,7; lbl  "Pulse  Gen:  A=1vP-P  AMPL=-20dB" 

65:  csiz  5;Plt  2 ,5 ; lbl  "1MHz  <  F  <  1 .25MHZ" 
csiz  3;Plt  0 ,3 ; lbl  "[Cl  when  Ready” 
ret 

"2" : gel r; pbeep  100,1;scl  0 , 1 0 ,0 , 1 0 ;csiz  3 

pit  0,9; lbl  "Connect  Pulse  Gen  OUTPUT  to  - " 

70:  pit  0,7 ; lbl  "20Hz-20MHz  Counter  Input" 

71:  pit  0,5; lbl  "ICl  when  Ready" 
ret 

"3" : gel r; pbeep  1000,1  ;scl  0 , 1 0 , 0 , 1 0 ; csi z  3 

74:  pit  0 ,9 ; lbl  "Connect  Pulse  Gen  OUTPUT  to  - " 

75:  pit  0,7; lbl  "1  MHz  REF  on  UUT;  Set  INT/EXT  to  EXT" 

76:  pit  0,5; lbl  "ICl  when  Ready" 

77 :  ret 

78:  "HEADING" :aclr 

79:  wrt  16,"  EXT  REFERENCE  CHECK  ",D$ 

80:  wrt  1 6 , "SYSTRON-DONNER  1626  s/n  ",N$ 

81  :  wrt  16," - " 

82:  ret 

83:  "BLOCK  DIAGRAM": 

84:  ”BD":psc  16;scT  0 , 10 , 0 , 1 0 ;csi z  2;gclr 

85:'  pit  2, 5, -2;  iplt  1 .5,0;  ipl  t  0,1;  ipl  t  -1.5,0;iPlt  0,-1, -3 

86:  pit  2. 4, 5. 6, 3; lbl  "PULSE" 

87:  csiz  1 .5 ;P1 t  2. 3, 5. 2, 3; lbl  "GENERATOR" 

88:  pit  2.75,5,-2;iPlt  0,-1. 5, -3 

89:  pit  2 ,5 . 75 , -2 ; ipl t  - .5,0 ; iplt  0 , 2 ; ipl t  .5, 0,-3 

90:  csiz  1.5;Plt  1 .2, 5. 5, 3; lbl  "OUTPUT" 

91 :  pit  1 ,7 .9,3; lbl  "1  MHz  REF" 

92:  pit  2, 7, -2; iplt  1 .5,0 ; ipl t  0.1  ;  ip  1 1  -1 .5,0 ; iplt  0,-1, -3 
93:  csiz  2;plt  2.4,7.65,3;lbl  "1626" 

94:  csiz  1.5;plt  2.2,7 .2,3; lbl  "  UUT 

95:  pit  3.5,7.5,-2;iplt  1 .5,0 

96:  csiz  1.2;plt  3 . 6 , 7 .6 ,3 ; lbl  "RF" 

97:  pit  5, 7, -2; iplt  1 .5,0 : iplt  0,1  ;  iPl t  -1 .5,0 ; iplt  0,-1, -3 
98:  csiz  1.8;plt  5.3, 7 .4 .3; lbl  "COUNTER" 

99:  csiz  1.5;Plt  2. 8, 3. 6, 3; lbl  "5  MHz" 

100:  csiz  1 . 5 ; p 1 t  2. 8, 4. 6, 3; lbl  "EXT  INPUT" 

101:  pit  2 ,2 .5 , -2 ; ipl t  1.5,0; iplt  0,1 ; ipl t  - 1 .5,0; iplt  0,-1, -3 
102:  csiz  1 .8 ;pl t  2 .3 ,3. 1 5,3 ; lbl  "  FREQ  " 

103:  pit  2. 15,2.7,3; lbl  "REFERENCE" 

104:  csiz  3.5;Plt  2,9,3; lbl  "EXTERNAL  REF  CHECK- 
105:  ret 
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EXT  REFERENCE  CHECK  2/9 '92 

SYSTRON-DONNER  1626  s/n  25008-2 


Status 

OK 

at 

0.105 

GHz 

Status 

OK 

at 

0.32! 

GHz 

Status 

OK 

at 

0.770 

GHz 

Status 

OK 

at 

1  .513 

GHz 

Status 

OK 

ai: 

2.409 

GHz 

Status 

OK 

at 

3.538 

GHz 

Status 

OK 

at 

4.814 

GHz 

Status 

OK 

at 

5.791 

GHz 

Status 

OK 

at 

6.869 

GHz 

Status 

OK 

at 

8.075 

GHz 

Status 

OK 

at 

9.182 

GHz 

Status 

OK 

at 

11.406 

GHz 

Status 

OK 

at 

13.317 

GHz 

Status 

OK 

at 

15.421 

GHz 

Status 

OK 

at 

17.361 

GHz 

Status 

OK 

at 

19.425 

GHz 

Status 

OK 

at 

21 .833 

GHz 

Status 

OK 

at 

23.647 

GHz 

Status 

OK 

at 

24.088 

GHz 

Status 

OK 

at 

25.792 

GHz 

EXT  REFERENCE  CHECK  2/0/82 

SYSTRON-DONNER  1628  s/n  25009-2 


Status 

OK 

at 

0, 

,105 

GHz 

Status 

OK 

at 

0 

.321 

GHz 

Status 

OK 

at 

0, 

.770 

GHz 

Status 

OK 

at 

i 

.513 

GHz 

Status 

OK 

at 

2 

.409 

GHz 

Status 

OK 

at 

3 

.536 

GHz 

Status 

OK 

at 

4 

.814 

GHz 

Status 

OK 

at 

5 

.791 

GHz 

Status 

OK 

at 

6 

.869 

GHz 

Status 

OK 

at 

8 

.075. 

.GHz 

Status 

OK 

at 

9 

.182 

GHz 

Status 

OK 

at 

1 1 

.406 

GHz 

Status 

OK 

at 

13 

.317 

GHz 

Status 

OK 

at 

15 

.421 

GHz 

Status 

OK 

at 

17 

.361 

GHz 

Status 

OK 

at 

19 

.425 

GHz 

Status 

OK 

at 

21 

.833 

GHz 

Status 

OK 

at 

23 

.647 

GHz 

Status 

OK 

at 

24 

.088 

GHz  - 

Status 

OK 

at 

25 

.792 

GHz 

Fig.] 

M2- 

•  Sample  data  sheet 
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Appendix  N 


RESIDUAL  FM  TEST 


HP-8901 A 

UUT 

RF 

MODULATION 

OUT 

ANALYZER 

IEEE-488  BUS  ' 

— - - - — — - - - - - - i 

i 


HP-26/36 

CONTROLLER 

(a)  Frequency  <1.2  GHz 


10  CV  Fr«eju«no  1  •• 


(b)  Frequency  >  1 .2  GHz 
Fig.  N1  —  Residual  FM  test 
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RESIDUAL  FM  TEST 

Language :  HPL  Controller:  HP-26/36 


0: 

1 : 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10 
11 
12 

13 

14 


"RESIDUAL  FM  MEASUREMENT  -  [ residualFM 1 " : 
"Author:  JJO  1/81;  revision  2  4/11/83": 


dim  F151 ;gclr ;aclr  ;psc  16;sfg  1 

dim  A$11] , X$180 1 , Y$180 1 , T$[60 1 , D$[ 1 0 1 ,S$120 1 

getk  "FMkeys" 

gsb  "BLOCK  DIA" 

gsb  "INIT" 

dsp  "Press  k3  INIT  for  Change  /  ICLNOchange"  ;beep;stp 
ent  "Mixer?  [Cl=Yes  1=No",Z;if  f lgl 3 ; 0>Z 
:  if  Z=0;ent  "LO  Source?  [Cl=8672  1=8340", S; if  flg13;01S 
:  urt  M , "AU" 

:  ent  "CALIBRATE?  [Cl=No  1=Yes",Q;if  f  lgl 3 ; 0  >Q 
:  if  Q=1 ;gsb  "FM  Cal" 

:  "R" :0>T ;ent  "UUT  Output  Freq?  (GHz)  tCl=Quit" ,F; if  flg13;g 


to  "END" 

15:  if  Z=0 ;F+1 > r 0 ; if  S=0:gsb  "rf" 

16:  if  S=1 ;gsb  "rfl" 

17:  if  S=0;cll  'amp'(IO) 

18:  if  S=1  ;cll  'amPr<5) 

19:  wait  1000 

20:  urt  M , "C0AUM2L2H1 D4” 

21:  aclr  ;gclr;red  M,A;red  M,A 
22:  for  J=1  to  10 
23:  red  M,A;A+T>T 

24:  fmt  1 , f3 .0 , f 1 0 . 0 , f 1 0 .0 ;urt  16.1,J,A,T 
25:  next  J 

26:  T/1 0>B;urt  16;urt  16.1,J-1,"  Ave  FM  =  ",B,"  Hz" 

27:  ent  "[Cl=Print  1 =Rerun" * R ; if  flg13;0>R 
28:  if  R=1 ; 0 } T ;gto  21 

29:  if  f lgl ;urt  P,T$,"  ",S$,"  ",D$ 

30:  if  flgljcfg  1  ;urt  P 

31:  fmt  1,"Freq  =",f6.0,"  MHz",3x,"FM  =",f6.0,"  Hz  ave  =",f7.0, 
"  Hz  Pk  =",z 

32:  fmt  2,f7.0,"  Hz  P-P" 

33:  urt  P+ . 1 , 1 000F ,B . B*\2 ;ur t  P+.2,B*2*\2 
34:  gto  "R" 

35:  "FM  Cal" : dsp  "*-*-********FM  CALIBRATION**********" 

36:  beep; dsp  "Connect  Cal  OUT  >  INPUT" ;stp 

37:  dsp  "Allow  30  minutes  uarm-up  before  CAL":stp 

38:  urt  M,"M2C1" 

39:  red  M,C 

40:  fmt  9 , "FM  Cal-F=",f7.2 
41 :  urt  P+ . 9 , C 
42:  urt  M, "17. ISP" 

43:  aclr  ;gclr 

44:  beep; dsp  "Connect  SIGNAL  1  INPUT" ;stP 
45:  ret 
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; pl t  7 .3,5.45,3; lbl 


46:  "BLOCK  DIA":psc  16;gclr;aclr  ;scl  0,10,0,10 
47:  pit  1 ,7 , 3 ; ip 1 1  2,0,2;iplt  0 , 1  . 5 ;  i p 1 1  -2 , 0 ; ip 1 1  0,-1. 5, -3 
48:  pit  1 .3,3; iplt  2 . 0 , 2 : ipl t  0,1 .5 ; iPl t  -2.0; iplt  0,-1. 5, -3 
49:  pit  4,5.25,3; iplt  1 ,0,2; ipl t  0,1; iplt  - 1 , 0 ; ip  1 1  0,-1, -3 
50:  pit  7 ,5,3;  iplt  2 . 0 , 2 ;  ipl  t  0,1  .5 ;  iplt.  -2,0;  iplt  0,-1. 5, -3 
51:  pit  1 .7,7.6, 3;csiz  2 ; lbl  "UUT" 

52:  pit  1 .5,3.6, 3;csiz  2 ;  lbl  "8672A" 

53:  pit  4 . 2 ,5 . 7 , 3 ;csi z  1.5; lbl  "Mixer" 

54:  pit  7.2,5.9,3;csiz  1 . 5 ; lbl  "  8901A 

"Mod  Analyzer" 

55:  pit  3 , 7 . 75 , 3 ; ipl t  1  .5 , 0 . 2; ipl t  0,-1. 5 
56:  pit  3,3.75,3; iplt  1 .5,0,2; iplt  0,1.5 
57:  pit  5,5.75,3; iplt  2,0,2 
58:  pit  .2,1 .7,3; lbl  "F(o)-F(Lo)=F<b)" 

59:  pit  2,9,3;csiz  2; lbl  "RESIDUAL  FM  TEST  SET-UP" 

60:  pit  3.1,7 .8,3;csiz  1 ; lbl  ”F<o>" 

61 :  pit  3.1 ,3.8 ,3; lbl  "F<Lo>" 

62:  pit  5.1 ,5.8,3; lbl  "F<b>" 

63:  pit  6. 5, 5. 8, 3; lbl  ”F(b)" 

64:  ret 

"rf " : f mt  8  .  "P" , f z9 . 6 , " JO" ; ur t  L+.8,r0;ret 
"rf 1 " : fmt  8 , "CW" , f 1 0 . 6 , "GZ” ; ur t  L+.8,r0;ret 
"amp" : f mt  7,"K",2b 

if  p1>3; if  pi < 1 3 ;ur t  L,"03";urt  L+ . 7 , 48 ,61 -pi ; ret 
urt  L , "01 " 

int(abs(p1 /I  0) ) }p2;urt  L+ .  7 ,p2+48 ,51  - 1 0p2-p1 ;ret 
"amP1":fmt  7 , "PL" , f5 . 0 , "DB" 


65: 

66: 

67: 

68: 

69: 

70: 

71 ; 

72:  urt  L+.7,p1;ret 
73:  "END": 

74:  if  Z=0  and  S=0;urt  16,”L0  =  8672A  /  Tuned  1  GHz  above  UUT" 
75:  if  Z=0  and  S=1 ;urt  16, "LO  =  8340A  /  Tuned  1  GHz  above  UUT" 
76:  if  Z=1;urt  16,"  No  local  osc;  signal  direct  into  8901  Mod 
Analyzer" 

77 :  stp 
78: 

79: 

80: 

81  : 

82: 

83: 

84: 

85: 

86: 

87: 

88: 

89: 

90: 

91  : 

92:  urt  16,T$, 

93 :  urt  16 
94:  ret 


"INIT" :aclr 

"UUT  Title": "RESIDUAL  FM  GIGA-TRONICS  1026">T$ 
"Serial  Number":"s/n  281902">S$ 

"Date" : "4/1 3/83"} D$ 

"UUT  Address" : 725IG 
"Mod  Analyzer  Address" :714>M 
"LO  Address" : 7 1 9 > L 
"Printer  Address” : 70 1 >P 
fxd  0;urt  16, "1026  Address 
urt  16, "Mod  Analyzer  Address". M 
urt  16, "LO  Address  ",L 

urt  16, "Printer  Address  ",P 

urt  16 

",S$,"  ",D$ 


'  ,G 
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FM  Cal -F=  100.08 


RESIDUAL  FM  GIGA- 

TRONICS 

1026 

s/n  281902 

4/45/8 

3 

F  req 

= 

100 

MHz 

FM 

290 

Hz 

ave 

s 

410 

Hz 

pk 

820 

Hz 

P-P 

F  req 

= 

200 

MHz 

FM 

= 

176 

Hz 

ave 

m 

248 

Hz 

pk 

497 

Hz 

P-P 

F  req 

s 

400 

MHz 

FM 

s 

271 

Hz 

ave 

& 

383 

Hz 

pk 

* 

766 

Hz 

P-P 

F  req 

= 

500 

MHz 

FM 

= 

165 

Hz 

ave 

* 

233 

Hz 

pk 

= 

466 

Hz 

P“P 

F  req 

= 

750 

MHz 

FM 

s 

283 

Hz 

ave 

SB 

401 

Hz 

pk 

iX 

801 

Hz 

P  ~P 

F  req 

= 

1000 

MHz 

FM 

* 

280 

Hz 

ave 

- 

396 

Hz 

Pk 

X 

791 

Hz 

P-P 

Freq 

SC 

1200 

MHz 

FM 

* 

239 

Hz 

ave 

* 

337 

Hz 

pk 

X 

675 

Hz 

p-p 

Freq 

= 

5000 

MHz 

FM 

a 

159 

Hz 

ave 

* 

224 

Hz 

pk 

* 

448 

Hz 

p-p 

Y  req 

* 

7500 

MHz 

FM 

s: 

168 

Hz 

ave 

= 

237 

Hz 

pk 

= 

474 

Hz 

p-p 

Freq 

= 

10000 

MHz 

FM 

= 

334 

Hz 

ave 

S 

472 

Hz 

pk 

x: 

943 

Hz 

P-p 

F  req 

- 

10500 

MHz 

FM 

288 

Hz 

ave 

s. 

407 

Hz 

pk 

ae 

313 

Hz 

p-p 

RESIDUAL  FM  GIGA- 

TRONICS 

1026 

s, 

/ n  281906 

4/2 

15/33 

F  req 

= 

100 

MHz 

FM 

266 

Hz 

ave 

= 

376 

Hz 

pk  » 

753 

Hz 

P-P 

F  req 

200 

MHz 

FM 

= 

163 

Hz 

ave 

s e 

230 

Hz 

pk  = 

460 

Hz 

P~P 

F  req 

= 

400 

MHz 

FM 

» 

278 

Hz 

ave 

■= 

393 

Hz 

pk  » 

787 

Hz 

P-P 

Freq 

= 

500 

MHz 

FM 

X 

169 

Hz 

ave 

a* 

239 

Hz 

pk  “ 

479 

Hz 

p-p 

F  req 

= 

750 

MHz 

FM 

= 

306 

Hz 

ave 

s 

432 

Hz 

pk  = 

864 

Hz 

P-P 

Freq 

■ 

1000 

MHz 

FM 

= 

299 

Hz 

ave 

= 

422 

Hz 

pk  *- 

845 

Hz 

P-P 

F  req 

a 

1200 

MHz 

FM 

= 

268 

Hz 

ave 

TZ 

379 

Hz 

pk  = 

759 

Hz 

P-P 

F  req 

* 

5000 

MHz 

FM 

= 

125 

Hz 

ave 

= 

177 

Hz 

pk  = 

353 

Hz 

P-p 

F  req 

K 

7500 

MHz 

FM 

141 

Hz 

ave 

= 

200 

Hz 

pk  * 

399 

Hz 

p-p 

F  rea 

a: 

10000 

MHz 

FM 

250 

Hz 

ave 

- 

354 

Hz 

pk  = 

708 

Hz 

P-P 

F  req 

- 

10500 

MHz 

FM 

203 

Hz 

ave 

* 

288 

Hz 

pk  - 

575 

Hz. 

P-P 

Fig.  N2  —  Sample  data  sheet 
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FREQUENCY  COUNTER  OPERATION 


18  CW  Fr*qu«rtol«*  M*o«ur«u  DIRECT  and  A  F 


MICROWAVE 

SYNTHESIZER 

RF 

COUNT 

UUT 

OUT 

INPUT 

0. 1  -  26  GHz 

IEEE-488  BUS . . . j 

( 

i 


HP-26/36 

CONTROLLER 

Fig.  Ol  —  Frequency  counter  operation  test 
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FREQUENCY 
Language :  HPL 


NRL  REPORT  8755 


COUNTER  OPERATION  TEST 
Controller:  HP-26/36 


0:  "COUNTER  OPERATION  CHECK  -  (countGT)": 

1:  "Composed:  JJO  1/20/83": 

2: 

3:  dim  LS1601 ,N$[ 15] ,D$t 10] ,X$[80] ,FE20] ,F$[301 
4:  "GIGA-TRONICS  1 026">L$ ;aclr  ;gclr;sfg  1,2,3 
5:  getk  "countKEYS" 

6:  gsb  "B/D" 

7:  dsp  "[C]  when  ready" ;stp 
8:  aclr  ;gclr;gsb  "INIT" 

9:  dsp  "Press  k3  INIT  for  Change  /  tC]=NOchange" ;beep ;stp 
10:  "R" : ent  "Counter  FUNCTION?  [Cl=MeasDIRECT  1=MeasDEL-F",C; if 
f lg13;01C 

11:  if  C=0 : ent  "Search  WINDOW?  (GHz)  [Cl=5",D;if  flg13;51D 
12:  if  C=0 ;D>W 

13:  if  C=1;ent  "DEL  Offset?  <+/-MHz>  <500" ,D ;D/1 0001W 

14:  "TEST  FREQS" : rstr  ;data  . 1  S3 , 1 . 759 , 2 . 623 ,4 .896 ,8 . 822 , 1 1 .629 

,13.774 

15:  data  15.365,18.181,20.743,22.961.25.783 
16:  for  J=1  to  12;read  FEJ];next  J 

17:  ent  "Enter  FREQs?  ECl=No  1-Yes", Q;if  f 1 g 1 3 ; 0 } Q ; 1 2 } N 
18:  if  Q=1 ;gsb  "ENTER" 

19 : 

20:  for  J=1  to  N 
21 :  gsb  "S/Freq" 

22:  sfg  2;500>H;gsb  "Count" 

23:  gsb  "Read" 

24:  if  C=0;01T;D>W;gsb  "PRINTOUT" 

25:  if  C=1 ;0>T;D/1000}W;gsb  "PRINTOUT-" 

26:  "N":next  J 

27:  pbeep  500,1 ;dsp  "FINISHED  /  [Cl  for  Hardcopy" ;stp 
28:  adump  "lp" 

29 :  end 

30:  "B/D":psc  16;gclr;aclr 
31 :  "BDh" :scl  0,10,0,10 

32:  pit  1,6,3; iplt  2,0,2; iPl t  0.1 .5 ; iPl t  -2.0:iplt  0.-1. 5, -3 
33:  pit  6 ,6 ,3 ; ipl t  2 , 0 , 2 ; i p 1 t  0,1.5; iplt  -2,0;iplt  0,-1. 5, -3 
34:  pit  1 . 6 , 7 , 3 ;csi z  2 ; lbl  "GT-1026" 

35:  pit  1 . 6 , 6 . 4 , 3 ; csi z  2 ; 1 b 1  "Source" 

36:  pit  6.8,7,3;csiz  2; lbl  "UUT" 

37:  pit  6 . 5 , 6 . 4 , 3 ; cs i z  2 ; 1 b 1  "Counter" 

38:  pit  3,6.75,3; iplt  3,0,2 

39:  cs i z  1 . 5 ; p 1 t  3. 1 ,6.85,3; lbl  "RF" 

40:  pit  3.1 ,6.5,3; lbl  "OUT" 

41:  pit  5.5,6.85,3; lbl  "MEAS" 

42:  pit  5.7 ,6.5,3; lbl  "IN" 

43:  psc  16;ret 
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44 : 
45: 
46: 
47: 
48: 
49: 
50: 
51  : 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61  : 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71  : 
72: 
73: 
74: 
75: 
76: 
77: 


Subrout ines 


"S/Freq" :urt  "s" . "GENFIXED  M0D0FF" 
fmt  9 . "LEVEL" . f 5 . 1 :  urt  "s.9",A 
fmt  1 , "FA” , f 5 . 0 
urt  "s. 1" , 1 000F[ J] 
ret 

"Count" : 

fmt  2, "FA", f 5.0 

if  FCJKW+1  and  C=0 ; 1 00 >r 1 

if  F[J]>=W+1  and  C=0;1000<F[J]-N)>r1 

if  C=0;urt  "uut.2".r1 

fmt  3 , "FB" , f5 . 0 

if  F[J]<=26-W  and  C=0 ; 1 000 <FC J]+W) >r2 
if  F[J]>26-W  and  C=0;260001r2 
if  C=0;urt  "uut.3",r2 

"uut .2" , 1 000<F[ J3-W) 

9 , c 1 . f 6 . 0 , c4 , f 6 . 0 , c4 , f 6 . 0 , c2 , 5x , f 3 
9,f9.3,f 12.3,5x,f3.0,f5.0,f7.2 
.  9,"  I  "  ,  rl  ,"  <— ".lOOOFtJl,"  —  > 

.9, FIJI ,W,T 


if  C=1 ;urt 
if  C=0 ; f mt 
if  C=1 ;fmt 
if  C=0;urt 
if  C=1 ;urt 
ret 


r2 , 


, f 5. 0 , f 7 . 2 
'  I  "  ,  T 


"Read": 

if  C=0;urt  . 9 , " I " , r 1  , "  < — " , 1 000F[ J] ."  — >",r2,"  l",T,H,W 
if  C=1 ;ur t  .9 ,F[ J] ,W,T,H,W 

uut" , "MEASDIR  SENDFREQ" 
uut" , "MEASDEL  SENDFREQ" 

WAIT" 


if  C=0;urt 
if  C=1 ;urt 
uait  H;if  T=20;gsb 
if  T=50 ;gsb  "SPAN" 
if  T=1 00 ;gto  "SKIP" 

red  "uut" , F$ ; 1 +T>T ; if  F$[ 7 ,8]="— " ;PbeeP  600,.01;gto 
val<F$[7, 1 5 1 ) } F ;PbeeP  300,2;0>T 


’uut", 725 
’,724 


’Read1 


78: 

ret 

79: 

80: 

"INIT" : 

81  : 

i*  _ 

UUT  (Counter)  Address 

"  :  dev 

82: 

ii _ 

Source  1026  Address": 

dev 

83: 

ii__ 

Source  Level  (dBm)":0)A 

84: 

if _ 

UUT  s/n" : "s/n  271606" 

}N$ 

85: 

ii _ 

PRINTER  Address" :dev 

"1P", 

86: 

ii _ 

Date" : " 1 /21 /83" >D$ 

87: 

urt 

16, D$,"  UUT  Counter 

is  ", 

88: 

urt 

16 

89: 

fmt 

1 , c20 ,c1 2 , f 3 . 0 

90: 

urt 

1 6 . 1 , "Source  Address 

,"724 

91  : 

ret 

92: 

,P 
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93:  ''PRINTOUT' 

94:  fmt  5," 

95:  fmt  4," 

96:  fmt  6," 

97:  fmt  7," 

98:  if  f 1 g 1 ;  ac  1  r  ;urt  16.5,D$;urt  16.4,N$;urt  16.6;urt  16.7;cfg 

99: 

100: 

101  : 

102: 

103: 

104: 

105: 

106: 

107: 

108: 


Direct  COUNTER  OPERATION  CHECK”. c12 
GIGA-TRONICS  1026”, c15 

Input  Freq  Meas  Freq  Freq  Diff' 
(GHz)  (GHz)  (MHz)" 


fmt  8,f10.3,2x,f13.6,2x,f 10.3 
urt  1 6 .8 1 Ft J] ,F/1000.1000F[J]-F 
ret 


MHz' 


"PRINTOUT-": 

fmt  5,"  del-F  COUNTER  OPERATION  CHECK", c12 
fmt  4, "GIGA-TRONICS  1026", c15,”  Offset  =  ",f4.0,' 
fmt  6,"  Input  Freq  DEL  Freq  Freq  Diff" 
fmt  7,"  (GHz)  (MHz)  (MHz)" 

if  flgljaclr  ;urt  16.5,D$;wrt  1 6 . 4 . N$ , 1 000W ; wrt  16.6;wrt  1 


6 . 7 ; cf  g  1 

109:  fmt  8,f10.3,2x,f12.3,2x,f10.3 
110:  urt  16.8,FtJ] ,F,D-F 
111:  ret 
112: 

113:  "ENTER": 

114:  1+I>I;ent  "Freq?  (GHz)  tC3=Quit" ,Ft 13 ; if  flg13;aclr  ; I - 1 > 


N  *  r  g  t 

115:  fmt  6,f3.0,2x,f8.3,c4;wrt  1 6 .6 , 1 , Ft  I ] , "GHz" ; jmp  -1 
116: 

117:  "SKIP" : 

118:  for  1=5  to  10;pbeep  1001,1 ;next  I 
119:  fmt  9,f10.3,c35 

120:  urt  16.9,FtJ3  /’Counter  DOES  NOT  FIND  Frequency" 

121:  if  C=0 ;D>W;0>T ;sfg  2,3;gto  "N" 

122:  if  C=1 ;D/1000}W;0)T:sfg  2,3;gto  "N" 

123: 

124*:  "WAIT": 

125:  "Shortens  wait  time  to  .2  sec  in  'Read'  subroutine": 
126:  if  flg2;cfg  2 ; 0 > T ; . 2H > H 
127:  ret 
128: 

129:  "SPAN": 

130:  "Narrows  search  span  to  1/10  that  selected": 

131:  if  f lg3 ; cf g  3 ; W/1 0IW ; J-1 > J ; 0 IT ;gto  "N" 

132:  ret 
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Direct  COUNTER  OPERATION  CHFCK  4/25/83 


Input  Freq 

Meas  Freq 

Freq  Diff 

<GHz) 

(GHz) 

(MHz) 

0.153 

0.152989 

0.011 

1 .759 

*  1.759000 

0.000 

2.623 

5.246002 

-2623.002 

4.896 

8.230901 

-3334.901 

8.822 

8.822003 

-0.003 

11.629 

11.629005 

-0.005 

13.774 

13.774006 

-0.006 

15.365 

15.365006 

-0.006 

18.T8T 

18.181008 

-0.008 

20 . 743 

20.743009 

-0.009 

22.961 

22.961010 

-0.010 

25.783 

25.783011 

-0.011 

0.153 

0.152938 

0.062 

1 .759 

1 .759000 

0.000 

2.623 

2.623001 

-0.001 

4.896 

4.896002 

-0.002 

8.822 

8.822003 

-0.003 

11.629 

11.629005 

-0.005 

13.774 

13.774006 

-0.006 

=15.365 

15.365006 

-0.006 

18.181 

18.181008 

-0.008 

20.743 

20.743009 

-0.009 

22.961 

22.961010 

-0.010 

25.783 

25.783011 

-0.011 

del-F  COUNTER  OPERATION  CHECK 
GIGA-TRONICS  1026  s/n  281902 


Input  Freq 

DEL  Freq 

Freq  Diff 

(GHz) 

(MHz) 

(MHz) 

0.153 

-200.105 

0.105 

1  .759 

-199.999 

-0.001 

2.623 

-199.999 

-0.001 

4.896 

-199.998 

-0.002 

8.822 

-199.996 

-0.004 

11.629 

-199.995 

-0.005 

13.774 

-199.994 

-0.006 

15.365 

-199.993 

-0.007 

18.181 

-199.992 

-0.008 

20.743 

-199.991 

-0.009 

22.961 

-199.990 

-0.010 

25.783 

-199.989 

-0.012 

4/25/83 

=  -200  MHz. 


Fig.  02  —  Sample  data  sheet 
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Appendix  P 

CABLE  CALIBRATION  CHECK 


(1)  Conm#ot  A-Bi  Moko  oablo  calibration  owoap 

(2)  Connect  A-C*  M»o«uro  output  at  ond  of  oablo 


2C0  CV  Fr#c|u#noio« 


IEEE-488  BUS 


i 

i 


HP-26/36 

CONTROLLER 


Fig.  PI  —  Cable  calibration  function  test 
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CABLE  CALIBRATION  FUNCTION  TEST 
Language:  HPL  Controller:  HP-26/36 


0:  [’CABLE  CALIBRATION  CHECK  GT  1026  -  CcableCAL  I" : 

1:  Connect  PM  to  end  of  Calibrated  Cable;  436A  <uatts>": 

2:  sfk  0 ;  sfk  1  :sfk  2;sfk  3;sfk  4;sfk  7;sfk  8:sfk  9 
3:  sfk  4 , "*cont  53", "IP]  plot" 

A:  sfk  9 , "*edi t 148",  "IP Labels"  ; acl r  ;gclr 

J  * 

i:Mcr1,c:i[0:600]’F[0:G00  3  »X$[80]’S$t25]*V[3nA$[8,2],C$n0],Y[30 

J  loJ 

7:  dim  T$[ 81 ,D$[ 1 0 1 
8:  lcl  725 ;aclr 

9.  wrt  16,  CONNECT  Cable:  RF  Out  -}  1026  PM  Input";wrt  16;beep 
istp 

10:  wrt  16, [[Activate  EXT  and  delP  pushbuttons" ; wrt  16;beeP;stP 
^  :  Activate  SINGLE  SWEEP  for  Cable  Cal";wrt  16;beep;st 

]2:  ]£’"5alease  EXT  and  delp  PU-shbut tons" ;  wr  t  16:beep:stp 

13:  wrt  16,  CONNECT  436  PM  -}  Cable  Output";urt  16;beep;stp 

•?*  Jnitialife?  rCl=No  1 =Yes" ,H ; i f  f lg13;0}H;gsb  "INIT" 
15:  if  H= 1 ;acl r  ;list  144,149 
1 G ;  if  H=1 ;stp 

18*  if  tQ=?^cll  ^CLOCK 'C^=^°  1=Yes"’Q;if  fl9^;0}Q 
19:  ent  "Test  Output  Power  Level ?" ,W ; 0 >L 

20:  ent  "8485  S/N?  [C]=648  1=163  2=180", S ; if  f lg13;0}S;gsb  "648 

21 :  if  S= 1 ;gsb  "163" 

22:  if  S=2;gsb  "180" 

oa!  »?™!FrFreS?,™HP  tC]-.1",VM]iif  f  1  g  1 3 ;  .1  >V1 1 1 
24;  ent  .STOP  Freg?  (GHz)  1CJ=26 .5" , V121 ; if  f 1 g 1 3 ; 26 . 5 } V C 2 3 

lb  u r*o i  ur^i?qinTEP?c  [ C ]  =264"  ,  V 1 3 1 ;  i  f  flg13;264W33 
26.  V  23  -V1 1  I  >  r  1 0  ;  -  .  15H0+V1 1  3  > r  1  ;  V121  + .  05r  1 0  >  r2 
27:  if  1=0 ; gsb  "CRT" 

28: 

29:  for  1=0  to  V[33 
30:  fxd  2 ; 0>T 

31:  "FREO  EQUATION" :V[ 1 ]+<V[23-Vt 1 ]>*I/V[3] >F 
32:  gsb  "G/T" 

33:  1 e9*F>F[ 1 1 
34:  gsb  "436A" 

35:  ell  ' CF' (F , Y) 

36:  T/3+.047(100-Y)+Z}AtI] 

37:  pit  F, A[ I ] 

38:  "STATUS" : gsb  "Stat-GT" 

33|  dBm  " ,f8.3,f5.0,2f3.0;wrt  .7,A,F,I,U,V 

h  ioi^foO-Y)1  G,f8-3’f7-2’f9-2'f7-2;iJrt  1G.6.F,Am,A[Il-A[I-1 

41 :  next  I 

43i  gtoP,:,PLn0T"[C]=HardCOPy  1=Soft"’C;lf  ng13;Psc  705;gto  52 
44: 
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45:  "436A" : f or  J=1  to  3 

46:  urt  713, "A+V" ;  f  mt  : red  713, Aired  713. A 
47:  if  A<0;1e-6}A 
48:  101oq(A/1e-3>>A;A+T}T 
49:  next  J;ret 

50:  ”PL0T":psc  16;gclr:csiz  1.5 

51:  sc 1  r1,r2,r3,r4;fxd  0;xax  r6.r7,int(r5),V[2],4;yax  r5,r8,r3 
, r4 ,  r9 

52:  gsb  "Pen" 

53:  for  K  =  0  to  V13] 

54:  pit  F[Kl/1e9f AIKl 
55:  next  K;pen 

56:  "Y-Axis  Mlcs":ent  "Y-value  ICl-Quit" ,B ; if  flg13;jmP  2 
57:  pit  r5,B,-2;plt  r2,B,-3;jmp  -1 

58:  "X-Axis  Mks":ent  "X-value  ICl-Quit", B;if  flg13;jmP  2 
59:  pit  B,r3,-2;plt  B,r4,-3;jmp  -1 
60 :  scl  0,10,0,10 

61:  csiz  2,1 .5,8/1 1 ,0;Plt  4 , .5,3; lbl  "FREQUENCY  (GHz)" 

62:  csiz  2.2,1 .5,8/11 ,0;plt  3,9,3 
63:  lbl  "GIGA-TRONICS  1026  ",N$ 

64:  pit  3, 8. 3,3; lbl  "CABLE  CALIBRATION  CHECK  " 

65:  pit  9,9.5,3;csiz  1 . 3 ; lbl  D$ 

66:  ell  'Read  Time' 

67:  csiz  2,1 .5,8/11 , 90 ;P1 t  .5,3,3; lbl  "POWER  OUTPUT  (dBm)" 

68:  Psc  16;ent  ”[C1=HDCPY  1=PRT",C;if  f lg13;0>C;Psc  705;gsb  "Pe 
n" 

69:  csiz  1.5 ;gto  51 

70:  "Wr i te" : sf g  1  ;scl  0 , 1 0 , 0 , 1 0 : gsb  "DISP" 

71:  psc  1 6 ; i f  C=1 ;psc  705;scl  0,10,0,10 

72:  ent  ”X",U;ent  "Y",V;Plt  U,V,3;ent  "tC]=RePos  1=PRT",P;if  fl 
g13;jmp  0 

73:  ent  "Format?  (1 -8>" ,F, "Angle?  0=Hor  90=Vert",A 

74:  csiz  F,  1  .5,8/1 l,A;ent  "Label  80<SPaces" ,X$ ;Plt  U,V,3;lbl  X$ 

75:  ent  "[C1=CHG  1 =Repeat  2=Cont  3=Quit" ,R; if  f 1 g 1 3 ; 01R ;gto  "DI 

SP" 

76:  if  R=1 ; P 1 t  U,V,3;lbl  X$;Plt  10,10,3;gto  "DISP" 

77:  if  R=2 ; lbl  X$;jmP  -2 
78:  if  R=3;stp 

79:  "DISP" :gclr ;aclr  ;psc  16;scl  0,10,0,10 
80:  pit  .5 ,8 ;csi z  1 ; f xd  2 ; lbl  "X  =",X,"  Y  =",Y 
81:  pit  . 5 , 7 .5 ;csi z  2 ; lbl  "U  =",U,"  V  =",V 
82:  pit  .5, 4; csiz  2:lbl  "L  Size  =",F,"  Angle  =",A 
83:  pit  .5,3.5;csiz  1 ; lbl  "X$  Label:";Plt  1.7, 3. 5 
84:  lbl  X$ 

85:  if  flgljcfg  1;ret 
86:  gto  71 
87:  "648": 

88:  data  1 00 , 99 . 7 ,98 . 8 ,99 . 98 . 6 ,97 .9 ,97 . 8 ,97 .6 ,97 . 4 ,97 . 1 ,97 . 1 , 97 
.2,96.2,96 

89:  data  95.8,95.3,95,94.8,92.9,91.7,92.5,93.8,92.8,93.1,92.2,9 

1  .6 

90:  for  J=2  to  27;read  YIJIjnext  J 
91 :  ret 
92:  "163": 

93:  data  100.1,99.2,99,99.3,98.8,98.4,97.9,97.8,97.6,97.5,97.1, 
97.4,96.7 

94:  data  96.1,95.2,95.5,95,95.1,93.7,92.8,92.9,92.6,91.3,91.8,8 
8.3,85.2 

95:  for  J=2  to  27;read  YIJIjnext  J 
96:  ret 
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97:  "G/T" : i f  1=0  and  L=0;wrt  M , "GENFIXED  M0D0FF  LEVEL", W 
98:  if  1=0  and  L=1 ;wrt  H, "GENFIXED  MODOFF  LEVEL15" 

99:  fmt  2 , "FA" , f 5 . 0 
100:  urt  M+.2J000F 
101:  utai  t  200  ;  ret 
102: 

103:  "CRT” :psc  16;gclr:aclr  ;fxd  0 
104:  V[ 1 3 >r5;0>r6; 1 >r7 ; 1 >r8;5>r9 
105:  if  r 1 0<= 1 0  ;  . 5} r7 ; f  xd  1 
1 0G :  if  r 1 0<=5 ; . 2} r7 ; f xd  1 
107:  if  r  1  0<=2  ; 1 }  r7 ;  f  xd  1 

108:  ent  "Output  RANGE?  (dBm)  Top  tC3=+1 0" , r4 ; if  flg13:10>r4 

109:  ent  "Output  RANGE?  (dBm)  Bottom  [Cl— 5",r3; if  flg13;-5>r3 

110:  r4-r3>r1 1 ;fxd  0 

111  :  if  rl 1<=10;2>r9:fxd  1 

112:  if  rl 1 <=5 ; 1 )r9 ; f xd  1 

113:  if  rl 1<=2;2>r9; .25>r8;fxd  2 

114:  if  r3>0  or  r4<0;ent  "Y-intercept" , r6 

115:  csiz  1.5;scl  rl , r2 , r3 , r4 ; xax  r6 , r7 , Vt 1 ] , Vt2] , 4 ;yax  r5,r8,r 

3,r4,5 

116:  ret 

117: 

118:  "Stat-GT" :urt  M , "SENDSTATUS" ; red  M,S$ 

119:  val (S$[ 7 ,83 ) >U ; val (S$[  1 5 , 1 6 ] ) >V 

120:  fmt  8 , "UNlevel  at",fG.1 

121 :  fmt  9 , "UNlock  at".f7.1 

122:  if  U=0 ;urt  16. 9, F 

123:  if  V=0;urt  16. 8. F 

124:  ret 

125: 

126:  ”CF" : if  P1 <=2 ; 1 00>P2 ; ret 
127:  for  J=2  to  26 

128:  if  P1>=J; J}P3; Yt J]}P4;Y[ J+1 ] }P5 
129:  next  J 

130:  p4+(p1-p3)(p5-p4)}p2 
131:  ret 
1 32 : 

133:  "INIT" : 

134  :  M—  UUT  Address"  :725IM 
135:  UUT  s/n" : "s/n  281902">N$ 

136:  Date"  :"4/18/83">D$ 

137:  urt  16, D$,"  UUT  is  ",N$ 

138:  ret 
139: 

140:  "CLOCK": 

141 :  "Set  Time": 

142:  ent  "Time?  (hhmm.ss)" ,p1 

143:  int(p1/100)}p2;int(p1-100p2)}p3;100frc(p1 )}p4 
144:  stime  p4+p3*60+p2*60~2 
145:  ret 
146: 

147:  "Read  Time": 

148:  rtimelpl 

149:  int(p1/3600)}p2;p1-p2*60"2>p3 
150:  int(p3/60) )p4 ;p3-60*p4>p5 

151:  f xd  0 ; P1 1  9,9.2,3;csiz  1.2;lbl  P2 , " : " ,p4 , " : " ,p5 

152:  ret 

153: 

154:  "Pen": 

155:  ent  "Pen  #  CHANGE?  0=NoPEN  (1-4)  [ C3=#1" ,P ; if  f lgl 3 ;  1  >P 

156:  pen#  P;ret 
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GIGA-TRONICS  1026  s/n  28 
CABLE  CALIBRATION  CHECK 


1902 


4/18/Bp 
17.  Qi 


“5  + 


-10 


FREQUENCY  (GHz) 

(a)  Giga-tronics  1026  s/n  281902 


Fig.  P2  —  Sample  data  sheet;  cable  calibration  check 
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